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PREFACE 

This revision of the PDP-15 FOCAL Programming manual is a technical update of the first Edition. Two new 
chapters, 7 and 8, have been added. Pages containing significant changes have been identified with the notation 
"CHANGE 1 " at the bottom of the page, as on this page. 

FOCAL (Formula Calculator) is an interactive service program designed to solve numerical problems of any 
complexity. 

This manual is designed to allow the reader to master and apply the FOCAL language within hours. 

Chapter 1 through 3 of this manual describe the structure and use of the FOCAL language (particularly in the 
formulation and solution of numeric problems). 

Chapter 4 contains demonstration programs which illustrate the many features and applications of FOCAL. The 
reader, by running these programs using different variables, can more fully realize the power and flexibility of 
FOCAL. 

Chapters 5 and 6 describe advanced user-library storage and retrieval functions and user-defined FOCAL functions. 
The FOCAL library functions permit the storage of lengthy programs by the use of "chaining." User defined 
functions enable frequently used operations to be called (requested and performed) by a single command. 

Chapter 7 describes FOCAL data functions which permit the user to store and then retrieve data on auxiliary 
Input/Output devices other than the Teletype.® 

Chapter 8 describes FOCAL multi-user functions for use in a Background/Foreground environment. 

NOTE 

The terms BASIC I/O Monitor and the ADVANCED 
Monitor, as used in this manual, refer to PDP-15 software 
systems. Use' of other software systems, e.g. PDP-9 BANK 
MODE, is noted where pertinent. 

OVERALL PDP-15 DOCUMENTATION STRUCTURE 

A tree-type block diagram of the overall "PDP-15 Family of Manuals" is illustrated on page viii. A brief description 
of the contents and the order number of each manual shown in the diagram are presented on page ix. 

ORGANIZATION OF PDP-15 SOFTWARE MANUALS 
There are two basic categories of PDP-15 software manuals: 

a. Unique, single-system, manuals which contain information concerning only one of the four available 
PDP-15 systems. This category consists of detailed software system descriptive manuals, each with an 
associated operational command summary. An example of this class of manual would be the "PDP-15/10 
Software System" manual and its associated "PDP-15/10 Users' Guide." 

b. Common, multi-system, manuals that describe utility, language, application and other PDP-15 programs 
which may be employed in one or more of the four available PDP-15 systems. Some examples of this type 
of manual are the PDP-15 "Utility," "MACRO-15 Assem.bler" and "STA-TPA.C" manuals. 
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CHAPTER 1 
INTRODUCTION TO FOCAL 



FOCAL is an on-line, interpretive service program designed to assist scientists, engineers, and students in solving 
complex numerical problems. The language consists of concise, imperative statements; mathematical expressions 
are typed in standard notation. 

FOCAL puts the full calculating power and speed of the computer at the user's fingertips. With FOCAL, the user 
can easily generate mathematical models, plot curves, solve sets of simultaneous equations in n-dimensional arrays, 
and much more. Examples of various problems that FOCAL is capable of solving are described in Chapter 4. 

1.1 HARDWARE REQUIREMENTS 

FOCAL can be run on any PDF- 15 computer with at least 8K core memory, a Teletype® (Model KSR 33 or KSR 
35) and a high-speed reader and punch. In such a system, FOCAL runs under the control of the Basic I/O Monitor. 
Extra memory may be added by use of a compatible Extended Arithmetic Element (EAE) and Automatic Priority 
Interrupt options. 

For use of the Advanced Monitor some form of mass storage must be added to the basic system, as follows: 

a. Type TC02 DECtape Control with two Type TU55 DECtape Transports, or 

b. Type RB09 Fixed-Head Disk System 

Input/output routines are provided for these devices as required. In addition, this system can take full advantage of 
any extra memory, central processor options, and additional I/O options. 

1.2 LOADING PROCEDURE 

1.2.1 Basic I/O Monitor System 

The Linking Loader paper tape is used to load FOCAL. When the Loader has been entered and started (refer to 
software Users' Guide supplied with the system), it types 

LOADER Vnn 

wiiere Vnn is the version number. Place the FOCAL binary tape in the paper tape reader, and momentarily depress 
the tape feed button to ready and to settle the tape firmly in the tape reader. Then, after loader's > type 

> P^ FOCAL 
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followed by the ALT MODE key. When the FOCAL program has been loaded, the Loader types 

Load the FNEW tape, or a user defined FNEW tape (see Chapter 6), followed by the system library, and type 
CTRL P after each tP typed by Loader. The CTRL P notation indicates depressing the appropriate letter key (in 
this case, P) while holding down the control key. 

Normally, only tapes 1, 4A or 4B, and 5A or SB from the system library are needed. Library tapes 2 and 3 contain 
card reader, line printer, and display handlers. 

When loading is complete, type 

CTRLS 

after Loader's t S and FOCAL will respond with FOCAL Vnn and an asterisk (*). FOCAL is now ready to accept 
commands. Printout to this point is similar to the following: 



LOADER V7A 


>P-FOCAL 




P FOCAL 


11764 


P FNEW 


11612 


tPtP 




P PPA. 


11021 


fPtP 




P .BH 


10765 


P DSQRT 


10675 


P DSIiM 


10662 


P DCOS 


10641 


P DA TAN 


106S6 


P DEXP 


10613 


P DLOG 


10572 


P .DD 


10424 


P .DB 


10304 


P .DE 


10203 


P .DF 


1 0044 


P .DC 


07775 


P .DA 


07726 


tPtP 




tPt P 




P DOUBLE 


07523 


P REAL 


06554 


P .CB 


06534 


FOCAL V8A 



The FOCAL loading procedure above may be used each time the user runs FOCAL; however, to facilitate 
reloading, the PUNCH utility program, distributed as a binary program in the Basic I/O Monitor System, may be 
used. 

The PUNCH utility program permits preparation of a single paper tape containing the I/O Monitor, system library 
programs, FOCAL, and FNEW. The user need only load this single tape (HR: 17720 of the highest core bank) for 
further FOCAL operation. The PUNCH utility program is loaded after FOCAL is first in core and ready to accept 
commands. 
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1.2.2 Advanced Monitor System 

FOCAL may be loaded with the Linking Loader and with Execute after the A-dvanced Monitor has been loaded. 
The Linking Loader is used with 1 2K, or greater, systems and Execute with 8K systems. 

To start the Advanced Monitor, place the system and program tapes on the appropriate DECtape units as described 
in the applicable System User's Guide. After the Monitor Bootstrap loader is loaded. Monitor types 

KM15 Vnn 

S 

at the left margin of the teleprinter page. 

Execute or the Linking Loader now requires assignment of .DAT (Device Assignment Table) slots -1 and -4. 
FOCAL requires assignment of .DAT slots +3, +7 (input) and +5, +10 (output). (.DAT slot assignments for FOCAL 
are summarized in Appendix E.) An example of the Advanced Monitor Command that must be typed after 
Monitor's $ follows: 

$A DTE0 -1, -4/DTEl 3, 5, 7, 10 

This assignment translates as: 

Assign DECtape unit (Advanced Monitor System tape is always placed on unit 0) to .DAT slots -1 and -4. Assign 
DECtape unit 1 to .DAT slots +3, +5, +7, +10. On the device assigned to .DAT -1, Execute and the Linking Loader, 
if used, expect to find the System Library. On the device assigned to .DAT slot -4, Execute expects to find the two 
execute files, FOCAL XCT and FOCAL XCU; and the Linking Loader, if used, expects to find the relocatable 
binary program, FOCAL BIN. 

FOCAL uses .DAT slot +3 for the library input function and .DAT slot +5 for the library output function (see 
Chapter 5 for FOCAL library commands). FOCAL uses .DAT slot +7 for DATA input function and .DAT slot +10 
for DATA output function. (Refer to Chapter 7 for detailed information about the DATA method of operating 
with FOCAL.) 

Use DECtape Handler E (DTE) for all the .DAT slots to ensure loading of only one DECtape handler in memory 
for both the Linking Loader or Execute and FOCAL. 

Two examples for loading FOCAL with the Advanced Monitor system follow. One is for those users with an 8K 

system and one for those users with a 1 2K, or greater, system. 

NOTE 
Formerly, FOCAL and FNEW were separate binary programs 
in the Advanced Monitor system and had to be called as 
FOCAL, FNEW after the Linking Loader was loaded. FNEW 
has been combined with FOCAL. Both are now loaded as 
shown in Example 2, below. 

Examples: (1) Execute (8K systems) is used in this example. After the .DAT slots are assigned, as above, Monitor 
types another $. Now type: 

$E FOCAL 

and depress the RETURN key. The teleprinter responds with 

EXECUTE Vnn 

and FOCAL starts to be loaded automatically. When FOCAL is loaded, the teleprinter responds 
with 

FOCAL 15 Vnn 
* 

where Vnn is the version number. FOCAL is now ready to accept commands. 

(2). The Linking Loader (12K system, or greater) is used in this example. After the .DAT slots are 
assigned, as above. Monitor types another $. Now type 

SGLOAD 

and depress the RETURN key. The Loader types 
LOADER Vnn 

now type a P and a back arrow (P *-) and FOCAL after the Loader's > 
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> P ^ FOCAL 

and depress the ALT MODE key. 

Teleprinter output format is as follows: 



KM 15 V5\ 






$h DTS0 - 


.1,-4/DTSl 3,5 


.7.13 


$GLOAD 






LO'iDER V7A 




>?«- FOCAL 






P FOCAL 


31752 




p Frasw 


31610 




P .BR 


31554 




P D3QRT 


31464 




P D3IJ? 


31451 




P DC03 


31430 




P DATAN 


31415 




P DSXP 


31402 




P DLOG 


31361 




P .DD 


31213 




P .03 


31073 




P .DE 


30772 




P .DF 


30633 




P .DC 


30564 




P .DA 


30 515 




P DOUBLE 


30312 




P R5LEAE 


26736 




P .CE 


30272 
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L3 RESTART PROCEDURE 

Restart is accomplished by the use of CTRL P (echoes tP). 

1.4 SAVING FOCAL PROGRAMS (Refer to Chapter 5 for full description) 

To save the current FOCAL program, type the following sequence of commands; where necessary, wait for FOCAL 
to type an * on the next line. 

•HLIBRA-RY OUT NAME 
♦LIBRARY WRITE "ERASE ALL 
♦LIBRARY WRITE ALL 
♦LIBRARY WRITE "* 
♦LIBRARY CLOSE 
* 

This sequence does not destroy the current program. Execute an ERASE ALL before starting the program to clear 
all variables and prevent placing previous programs in the library along with the current program during current 
library storage (refer to sections 3.5 and 5.4.2). When a program is to be saved, Loader assignment must be to the 
proper output device. The assignment described in section 1.2.2 will output the program on DECtape. 

To loaa a saved FOCAL program, type: 
*UBRARY IN NAME 

1-4 CHANGE 1 



1.5 DATA INPUT/OUTPUT (Refer to Chapter 7 for fuU description) 

To use auxiliary I/O devices for data storage and retrieval, type the follovring sequence of commands: 

*DATA OUT NAME 
*DATA CLOSE 

*DATA IN NAME 

This sequence will initialize and enter the named file for the data on a mass storage device, close the named file on 
that device, and then initialize a device under the given filename for data retrieval. 
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CHAPTER 2 
FOCAL LANGUAGE 



After FOCAL has been loaded, the program types out 

FOCAL Vnn 

* 

to indicate that it is ready to accept commands from the user. Each time the user terminates a teletype line by 
depressing the RETURN key, or after FOCAL has performed a command, an * (asterisk) is typed to tell the user 
that FOCAL is ready for another command. 

2.1 ELEMENTARY COMMANDS 

One of the most useful commands in the FOCAL language is TYPEI" which instructs FOCAL to "type out the 
result of the following expression." Then, the user types an expression after TYPE (following the asterisk which 
FOCAL typed) such as 

*TYPE 123- 456+9.8765 

and presses the RETURN key; FOCAL types the answer. 
133.3325* 

SET is another useful command, which instructs FOCAL to "store this symbol and its numerical value; then when 
this symbol is used in an expression, insert the numerical value." Thus, the user may type 

*SET A=3. 141592,: SET B=23.572J SET C=485.5 

and then use these symbols tn identify the values defined in the SET command. 

*TYPE A+B+C 
512.2136* 

Symbols may consist of one, two, or three alphanumeric characters. The first character must be a letter, but must 
not be the letter F which refers to function names (Refer to Section 3.16). 

FOCAL is always checking user input for syntax errors (e.g., invalid commands, illegal formats, etc.). When an error 
is detected, FOCAL types an error message in the form of a question mark and code number to indicate the type of 
error. In the following example, 

t Any number appearing in a TYPE command must have its magnitude represented in 35 bits of mantissa; otherwise, FOCAL will type 
the ?27 enor message and ignore your request. This error message will occur with an 11 or 12 digit number, depending on the 
magnitude of the number. The same is applicable for the ASK command. CHANGE 1 2-1 



*he:lp 
? 10 

*TYPE 2++4 

?21 

* 

HELP is not a valid command and two plus signs (double operators) is an illegal operation. The complete list of 
error messages and meanings is given in Appendix B. 

2.2 OUTPUT FORMAT 

The FOCAL program is originally set to produce results snowing up to eight digits, four to the left of the decimal 
point (the integer part) and four to the right of the decimal point (the fractional part). Leading zeros are sup- 
pressed, and spaces are shown instead. Traihng zeros are included in the output to the limits of the format, as 
shown in the examples below. 

+SET A=77.77i SET 8=111111.1111; SET C= 39 
*TyPE fkj,B^C 

77.7700 111111.11 39.0000* 

The output format may be changed if the user types 

*TYPE %X.YZ 

where the percent sign (%) is the format operator symbol, » is the total number of digits to be output and yz is the 
number of digits to the right of the decimal point. The values x and yz are positive integers, and the value of x 
cannot exceed 63 digits. The value yz is always written as a 2 digit number, (e.g., 03). For example, if the desired 
output format is 2 places to the left of the decimal point and five to the right the user types 

*TYPE %7.05^ 12.222222+2.37184 
and FOCAL types 

14. 59 406* 

Notice that the format operator (%x.yz) must be followed by a comma, and that until the user changes the output 
format all results will be typed in the last specified format, i.e. %7.05. 

The results are calculated to nine digits. In some circumstances since rounding may place some uncertainty on the 
9th place, the user may need to account for the rounding. If the user types 

*TYPF %9.04, 123456.789 

123456. 789* 

Of the 9 available digits, priority is given to those to the left of the decimal point. 

In the following examples, the number 2848.5363 is typed out in several different formats. 
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*SET A=2848.5363 
*TYPE %7.03^ A 

2848 • 536* 
*TYPE %8.04j a 

2848.5363* 
*TYPE %9.05> A 

2848-53630* 



If the user does not indicate the number of places in the iractional part of the number, only the integer part is 
printed. 

If the specified output form.at is too small to contain the integer portion of the number, FOCAL converts the 
number to floating point form, O.LE+mn, where E+mn indicates the mn"* power of 10 of the number L printed as 
a number between 0.0 and 1.0 (refer to Section 2.3). 

*TYPE %3:. A 

0.285E+04* 

If the specified format is larger than the number, FOCAL inserts leading spaces up to, but not including, the 
asterisk column. 

*TYPE %11.. A 
2849* 

Leading blanks and zeros in integers are always ignored by FOCAL, except tor numbers between 0.0 and 1.0, 
where a zero precedes the decimal point. 

*TYPE %8.04.. 0016.. 0.016:. ... 00700 

16.0000 0.0160 0.0000 700.0000* 



2.3 FLOATING-POINT FORMAT 

The user may request output in exponential form which is called floating-point or E format. This notation is fre- 
quently used in scientific computations and is the format in which FOCAL performs its internal computations. 
The user requests floating-point format by including a % followed by a comma in a TYPE command. FOCAL will 
print out 0, a decimal point, a 9-digit number, the letter E, and the number of places to move the decimal point for 
standard notation. Until the user specifies another output format, all results are typed out in floating-point format. 

For example. 



*TYPE %.. 1 1 1 1 
0.111 100000E+04* 

is interpreted as .1111 times 10" , or 1111. Exponents can be used to ±999. The largest number that FOCAL can 
handle is ±0.999999983 times 1 0" » , and the smallest is 0.999999983 times 1 0"' " . 

To demonstrate the ability of FOCAL to compute large numbers, find the value of 449 factorial by typing the 
following commands: 

*SET A=l 

*FOR I = 1..449; SET A=A*I 
*TYPE %..A 
0.385193049E+998* 

2-3 



The FOR statement, which will be explained later, is used to set I equal to each integer from 1 to 449. 



2.4 ARITHMETIC OPERATIONS AND SYMBOLS 

FOCAL performs the usual arithmetic operations (addition, subtraction, multiplication, division, and 
exponentiation). These operations are written by using the following symbols: 

SYMBOL MATH NOTATION FOCAL 

t Exponentiation 3^ 3t3 (Power must be a positive integer) 

* Multiplication 3-3 3*3 

/ Division 3-^3 3/3 

+ Addition . equal 3+3 3+3 

- Subtraction > priority 3-3 3-3 

These operations may be combined into expressions. When FOCAL evaluates an expression comprising several 
arithmetic operations, the priority follows the above Ust. 

Note that addition and subtraction have equal priority. Expressions with these two operators are evaluated from 
left to right. 

A+B*C+D is A+(B*C)+D not (A+B)*(C+D) nor (A+B)*C+D 
A*B+C*D is (A*B)+(C*D) not A*(B+C)*D nor (A*B+C)*D 



X/2*Y is-^notf — Jy 

2 t 2 t 3 is 43 not 2» 



To perform exponentiation to a negative power, X-A, use FEXP(A*FLOG< X > ). 

Expressions (except IF) to be evaluated by FOCAL may be enclosed in any properly paired parentheses, square 
brackets, or angle brackets. The IF statements, however, must be enclosed in parentheses. 

For expressions without IF statements: 

*SET A1=(A+B)*<M+N>*[X+Y] 

The left bracket ([) and the right bracket (]) enclosures are typed using the SHIFT and K keys and the SHIFT 
and M keys, respectively. 

For expressions that are nested, FOCAL computes the value of the innermost expression first and then works 
outward. 

*TYPE 7., (2 + <3-C l*4] + 5>-2) 

0.400000000E+01 * 



Note that this number is expressed in floating-point format, as specified by the unmodified % symbol. 

2.5 ADDITIONAL SYMBOL INFORMATION 

The value of a symbolic name or identifier is not changed until the expression to the right of the equal sign is 
evaluated by FOCAL. Therefore, before it is evaluated, the value of a symbolic name or identifier can be changed 
by retyping the identifier and assigning it a new value. 
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*SET Al=3t2J SET A1=A1+1 
*TyPE 7,2.> Al 
10* 

Symbolic names or identifiers must not begin with the letter F. (Refer to Section 3.16) 

The user can request FOCAL to type out all user defined identifiers, in the order of definition, by typing a dollar 
sign ($) after a TYPE command. (Refer to Section 3. 1 .) 

*TYPE %7.2,S 
The user's symbol table is typed out in the following manner: 



A@§C00>= 0.3851931E+998 
I§@(00)= 450.0000 
A1@(00)= 10.00000 

NOTE 
"A" and "I" defined in a previous example (on 
page 2-3) were not erased before going on to the 
present example. 



If an identifier consists of less than three letters, an @ is inserted as the second/third character in the symbol table 
printout, as shown in the example above. An identifier may be longer than three characters, but only the first three 
are recognized by FOCAL and stored in the symbol table. 

2.6 SUBSCRIPTED VARIABLES 

FOCAL always allows identifiers, or variable symbols, to be further identified by subscripts in the range + 1 3 1 07 1 
(2'^ -1), which are enclosed in parentheses immediately following the identifier. For example, the following 
identifiers are subscripted: 

A (I) B(J,3) 
A subscript may also be an expression: 

*SET Al (I+3*J) = 2. 33 
*SET X2(5T3*J)=8.20 

The ability of FOCAL to compute subscripts is especially useful in generating arrays for complex programming 
problems. A convenient way to generate linear subscripts is shown in Section 4.5. 

2.7 THE ERASE COMMAND 

To delete all of the symbolic names which are defined in the symbol table, except those in the COMMON area 
(Refer to Section 5.4), type ERASE. As FOCAL does not clear the user's symbol table area in core memory when 
it is first loaded, it is good programming practice to type an ERASE command before defining any symbols. 

2.8 HANDLING TEXT OUTPUT 

Text strings are enclosed in quotation marks ("...") and may include most teletype printing characters and spaces. 
The carriage return, line feed, and leader-trailer characters are not allowed in text strings. To instruct FOCAL to 
type an automatic carriage return line feed at the end of a text string, the user inserts an exclamation mark (!). 

*TYPE "ALPHA" ! "BETA" ! "GAMMA" ! 

ALPHA 

BETA 

GAMMA 

* 

If only a carriage return is desired at the end of a text typeout, the user inserts a number sign (#). 



.1, -r\/oir I ir 



X + Y / Z 



CHANGE 1 2-5 



The number sign operator is useful in formatting output and in plotting another variable along the same coordinate 
(Refer to Section 4.7). 

2.9 INDIRECT COMMANDS 

Up to this point, only direct commands, executed immediately by FOCAL, have been discussed. In contrast, 
commands may be delayed to alter sequences, assign all variables or generate a lengthy program. These delayed 
execution statements are called indirect commands which are prefixed by a line number and are stored by FOCAL 
for later execution, usually as part of a sequence of commands. Line numbers must be in the range 1.01 to 99.99. 
The number to the left of the point is called the group number; the number to the right is called the step number. 
(The numbers 1.00, 2.00, etc., are illegal line numbers; they are used to indicate an entire group of lines.) For 
example, 



*ERASE ALL 

*1 . 1 SET A=3 

*1 .2 SET B=8 

*1 .3 TYPE %2.. A+B 



To execute indirect commands the user types one of the direct commands GO, GOTO, and DO. 

The GO command causes FOCAL to go to the lowest numbered Une to begin executing the program. If the user 
types a direct GO command after the indirect commands above, FOCAL will start executing at hne 1.1. 

*G0 
1 1* 



The GOTO command causes FOCAL to start the program by executing the command at a specified Une number. 

*GOTO 1 .2 
1 1 * 

FOCAL started executing the program at line, 1.2 SET B=8, in the above example, and then continued to line 1.3. 

The DO command is used to transfer control to a specified step, or group of steps, and then return automatically to 
the command following the DO command. 

*ERASE ALL 

*1 . 1 SET A= l; SET 8=2 
*1.2 TYPE " STARTING " 
*1 .3 DO 3-2 

*2. 1 TYPE " FINISHED " 
*3. 1 SET A=3; SET B= 4 
*3.2 TYPE %!.. A+B 
*G0 
STARTING 3 FINISHED 1* 

When the DO command at line 1.3 was reached, the command TYPE %1, A+B was performed and then the 
program returned to line 2. 1 and continued from there. 

The DO command can also cause FOCAL to jump to a group of commands and then return automatically to the 
normal sequence. 

*ERASE ALL 

*1 . 1 TYPE "A" 

*1 .2 TYPE "B" 

*1 .3 TYPE "C" 

* 1 . 4 DO 5.0 

*1.5 TYPE " END "; GOTO 6.1 



2-6 CHANGE 1 



*5. 1 TYPE "D" 

*5.2 TYPE "E" 

*6 • i TYPE " . " 

*G0 

ABCDE END .* 

When the DO command at line 1.4 was reached, FOCAL executed the group 5 lines and then returned to line 1.5. 

An indirect command, with the proper sequential line number, can be inserted in a program at any time before the 
direct execute command. For example, 

*ERASE ALL 

*4.8 SET A=l; SET B=2 
*6.3 TYPE %8.3.. B/C + A 
*4.9 SET C=3.4581 
*G0 
1 .57 33523* 

where line 4.9 will be executed before line 6.3 and after line 4.8. FOCAL arranges and executes indirect commands 
in numerical sequence by line number. 

2.10 ERROR DETECTION 

FOCAL checks all input commands for a variety of errors. If an error is detected, FOCAL types a question mark, 
followed by an error code and the appropriate line number if the error is in an indirect command. A complete list 
of these error codes is shown in Appendix B. 

The WRITE command without an argument causes FOCAL to print out the entire indirect program so that the user 
may check it for errors. 

The trace feature of FOCAL is valuable in program debugging. Any part of an indirect statement or program can be 
enclosed in question marks, and when that part of the program is executed, the portion enclosed in question marks 
will be printed out. If only one question mark is inserted the program is printed out from that point until 
completion. The trace feature is also used to follow program control and to create special formats (Refer to Section 
3.15). 

2.11 CORRECTIONS 

If the user types the wrong character, or several wrong characters, the RUBOUT key, which echoes a backslash (\) 
for each RUBOUT typed, is used to delete one character to the left each time the RUBOUT key is depressed. 

*ERASE ALL 

*1.1 RYPEWWTYPE X-Y 

*1 -2 SET X=12\3 

*WRITE 

C FOCAL V3A 
01.10 TYPE X-Y 
01 .20 SET X=13 



Typing CTRL U (echoes an @) deletes everthing which appears to its left on the same line. 

*1 . 3 TYPE A..B>C@ 

*WRITE 

C FOCAL V3A 
01.10 TYPE X-Y 
01 .20 SET X=13 
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A line can be overwritten. Repeat the same line number and type the new command. For example, 



+ 14.99 SET C9CN+3):=15 
* 



is replaced by 



*14.99 TYPE C9/Z5-2 

*WRITE 14.99 

14.99 TYPE C9/Z5-2 



When WRITE is typed after corrections are made, FOCAL will print the indirect program as altered. With this 
feature, commands can be checked and a "clean" program printout can be obtained. Remember that all indirect 
input is printed when WRITE is typed. Therefore, it is useful to type ERASE ALL at the start of a new sequence. 
(Refer to Chapter 5 for storing programs.) The ERASE command with an argument' will delete aline or group of 
lines. For example, to delete line 2.21, the user types 



*ERASE 2.21 



To delete all of the lines in group 2, the user types 



*ERASE 2.0 

Used alone, without an argument, the ERASE command causes FOCAL to erase the user's entire symbol table. 
FOCAL does not zero memory when loaded; consequently, it is good practice to type ERASE before defining 
symbols. The command ERASE ALL erases all user input, except COMMON variables. 

The MODIFY command is another valuable feature. It may be used to change any number of characters in a 
particular line, as explained in Section 3.14. 

2.12 ABBREVIATIONS 

All FOCAL commands (except COMMON and DATA) may be abbreviated to the first letter of the command. 
Thus, 

*TYPE 10, ! 
is equivalent to 

*T 10,! 

2. 1 3 ALPHANUMERIC NUMBERS (Using Letters as Numbers) 

Numbers must start with a numeral but may contain letters. FOCAL interprets as a number any character string 
beginning with a numeral (0 through 9). An alphanumeric number is a string of alphanumeric characters (excluding 



iJ±. 
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+0ABC 233AT 2836A1 

Each letter in an alphanumeric number is taken as a number (A through Z correspond to 1 through 26, 
respectively) except for E. 

The letter E denotes exponentiation to base 10 when used as a numeral. Alphanumerics after the letter E are taken 
as the exponent of the preceding alphanumerics. 

NOTE 

E denotes exponentiation; consequently, the number 5 
cannot be represented in alphanumeric form. 



A= 1 


J= 10 


S= 19 


B = 2 


K=ll 


T = 20 


C = 3 


L=12 


U=21 


D = 4 


M= 13 


V=22 


E = (exponentiation) 


N=14 


W = 23 


F = 6 


0= 15 


X=24 


G=7 


P= 16 


Y = 25 


H = 8 


Q=17 


Z = 26 


1 = 9 


R= 18 





An easy way to give FOCAL numerical valued letters is to start with the number 0, as in the following example. 



*TYPE %' 0AB 
0. 120000033E+02* 

After 0, A=l and B=2; thus, 0AB=12. Alphanumeric characters may be used in arithmetic operations. 



*TYPE %, 0AB+0C 
0. 150000000E+02* 



The letter E denotes exponentiation to base 10 when used as a numeral. Alphanumerics after the letter E are taken 
as the exponent of the preceding alphanumerics. Only one E is allowed in any one alphanumeric number. 

l=TyPE %8> 0AED 

10000* 
*TYPE %8^ 0SEC 

19000* 
* 



Alphabetic characters may be used when assigning numerical values to identifiers or variables in response to an ASK 
statement (Refer to Section 3.9 for a use of this feature and lines 3.20 and 3.30 of "Intercept and Plot of Two 
Functions" in Section 4.7 for an application). 
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CHAPTER 3 
FOCAL COMMANDS 



3.1 TYPE 

The TYPE command is used to compute and type out a text string, the result of an expression, or the value of an 
identifier. For example 

+4.14 TYPE 3.2*6-C36-2*65) /2. 348 
*4.15 TYPE 3t6+(7.23/4.2753)*73.4 

* 



Several expressions can be computed by a single TYPE command; commas are used to separate each expression. 

*1.1 TYPE %6.03j A1*2^ 2^12^ 2.28*83.636 
*D0 1 .1 

0.000 4096.00 190.690* 



The output format (%) can be included in the TYPE statement as shown in the example above and as explained in 
Section 2.2. 

The user may request a typeout of all identifiers which he has defined by typing TYPE S and pressing the 
RETURN key. This causes FOCAL to type out the identifiers with their values, in the order in which they were 
defined. The $ can follow other statements in a TYPE command, but must always be the last operation on the line. 



*ERASE ALL 

*SET L = 33J SET B:=22; SET Q=385 
*SET A3=:94.3i SET A7T=2.485 
*TYPE %5.03.»£ 

L@@C00)= 33.000 

B@@C00)- 22.000 

Qia@C00)= 385.00 

A3@(00)= 94.300 

A7TC00)= 2.485 
* 
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A text string enclosed in quotation marks can be included in a TYPE command, and a carriage return can replace 
the closing quotation mark: 



*TYPE "X SQJAREO 
X SQUARED* 

A text string or any FOCAL command or group of commands cannot exceed the capacity of a teletype line (72 
characters for KSR33 Teletype). A command cannot be continued on the following line. To print out extended 
text, each line must start with a TYPE command. 

FOCAL does not automatically perform a carriage return after executing a TYPE command. To insert carriage 
return-line feed characters type an exclamation mark (!). To insert a carriage return without a line feed, type a 
number sign (#). To insert spaces, enclose them in quotation marks. These operations are useful for format output. 

3.2 ASK 

The ASK command is normally used in indirect commands to allow the user to input data at specific points during 
the execution of the program. The ASK command is written in the form: 

*1 1 .99 ASK X..Y>Z> 

When step 1 1.99 is encountered by FOCAL, it types a colon (:). Then, the user types a value in any format for the 
first identifier, followed by a carriage return or ALT MODE. The ALT MODE key continues the text on the same 
line. FOCAL then types another colon, and the user types a value for the second identifier. This continues until all 
the identifiers or variables in the ASK statement have been given values. 

*1 1 .99 ASK X.>YjZ 
*D0 11.99 
: a: a: 8* 

In the above example, the user typed 4, 4, and 8 as the values, respectively, for X, Y, Z. 

FOCAL recognizes each value when its terminator (i.e., carriage return or ALT MODE) is typed. Therefore a value 
can only be changed before its terminator is typed. This is done by using RUBOUT or CTRL U. 

A text string can be included in an ASK statement if the string is enclosed in quotation marks. 



*1.1 ASK "riOW MANIC APPLES DO YOU HAVE?" APPLES 
* DO 1.1 

HOW MANY APPLES DO YOU HAVE?: 25 
*TYPE APP 
0.250030000E + 0'='* 

The identifier APP (FOCAL recognized only the first three characters of the identifier APPLES.) now has the value 
25, When APP is used, it wall equal 25. Its value m.ay be reassigned if it is asked for again. 

*ASK APP 
:30 

♦TYPE APP 
0.3000000002+32* 

Alphabetic characters can be used if numerical values are assigned to identifiers or variables: 

*1 . 1 ASK AJ TYPE %4jA 
*D0 1 . 1 
:ABCD 
1234* 
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When the user typed ABCD and RETURN, FOCAL typed the numerical value of ABCD (Refer to "Alphanumeric 
Numbers", Section 2.13). 

Alphabetic responses are especially useful for keyboard responses to FOCAL statements. A YES or NO answer can 
be typed by the user during program execution in response to a program question, as explained in Section 3.9. 

3.3 WRITE 

A WRITE command without an argument causes FOCAL to write out all indirect statements which the user has 
typed. Indirect statements are those preceded by a line number. 

A group of line numbers, or a specific line, can be typed out with the WRITE command using arguments, as shown 
below. 

*7.97 WRITE 2.0 (FOCAL types all group 2 lines) 

*7.98 WRITE 2.1 (FOCAL types line 2. 1 ) 

*7.99 WRITE (FOCAL types all numbered lines) 

3.4 SET 

The SET command is used to define identifiers. When FOCAL executes a SET command, the identifier and its 
value are stored in the user's symbol table. When the identifier is encountered in the program, the value is 
substituted for the identifier. 

*ERASE ALL 

*4.1 SET A=394.83; SET B=4.373 

*A.2 TYPE X^A+B 

0.399203000E+03* 
An identifier can be set equal to previously defined identifiers, which can be used in arithmetic expressions. 
*3.7 SET G=(A+B)*2t6 

3.5 ERASE 

An ERASE command without an argument is used to delete all identifiers except those in COMMON (Refer to 
Section 5.4 for the ERASE COMMON command.) vsdth their values, from the symbol table. 

If the ERASE command is followed by a group number or a specific line number, a group of lines or a specific line 
is deleted from the program. 

*ERASE 2.0 (deletes all group 2 lines) 

*ERASE 7.11 (deletes line 7.11) 

The ERASE ALL command erases all the user's input. In the following example, an ERASE command is used to 
delete line 1.50. 

*ERASE ALL 
*1.2 SET B=2 
*1.3 SET C:=34 
*1 .4 TYPE B+C 
*1 . 5 TYPE C-B 
*ERASE 1.5 
*WRITE 

C FOCAL V3A 
01 .20 SET B = 2 
01.30 SET C=34 
01 .40 TYPE B+C 



3.6 GO 

The GO command is used to execute the program which starts with the lowest numbered line. The remainder of 
the program is executed in line number sequence. Line numbers must be in the range 1.01 to 99.99. 
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3.7 GOTO 

The GOTO command causes FOCAL to transfer control to a specific line in an indirect program. It must be 
followed by a specific line number. After executing the command at the specified line, FOCAL continues to the 
next higher line number, executing the program sequentially. 



*ERASE ALL 




*1.1 TYPE 


"A" 


*1.2 TYPE 


"B" 


*1 .3 TYPE 


"C" 


*1 .4 TYPE 


"D" 


*GOTO 1.2 




BCD* 





3.8 DO 

The DO command transfers control momentarily to a single line, a group of Unes, or an entire indirect program. If 
transfer is made to a single Une, the statements on that line are executed, and control is transferred back to the 
statement fojlowing the DO command. Thus, the DO command makes a subroutine of the lines'to which control is 
transferred, as shown in the following example: 

*ERASE ALL 

*1 . 1 TYPE "F" 

=1=1.2 DO 2.3i TYPE "C" 

*1.3 TYPE "A" 

*1.4 TYPE "L" 

*1 .5 QUIT 

*2.3 TYPE "0" 

*G0 

FOCAL* 

If a DO command transfers control to a group of lines, FOCAL executes the group sequentially and returns control 

to the statement following the DO command. 

If DO is written without an argument, FOCAL executes the entire indirect program in the same manner as a GO 

command. 

DO commands cause specified portions of the indirect program to be executed as closed subroutines. These 

subroutines can also be terminated by a RETURN command. 

A GOTO or an IF statement within a DO subroutine modifies the program execution sequence. 

3.9 IF 

To transfer control after a comparison, FOCAL contains a conditional IF statement in the form IF (m) x, y, z; m is 
an expression or variable, and x, y, z are three line numbers. The expression is evaluated, and the program transfers 
control to the first number, x, if the expression is less than zero; to the second line numbei, y, if the expression 
equals zero; or to the third line number, z, if the value of the expression is greater than zero. 



*2.1 TYPE "LESS THAN ZERO'S* QUIT 
*2.2 TYPE "EQUAL TO ZERO"J QUIT 
*2.3 TYPE "GREATER THAN ZERO"; QUIT 
*IF (25-25) 2.1;.2.2^2.3 
EQUAL TO ZERO* 

In the above example, the parenthetical expression equals zero; consequently, line 2.2 was executed. Note that an 
IF statement must be enclosed in parentheses. 

The IF statement can be shortened by terminating it with a semicolon or carriage return after the first or second 
Une number. If a semicolon follows the first hne number, the expression is tested, and control is transferred to that 
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line if the expression is less than zero. If the expression is not less than zero, the program continues with the next 
stateinent.. 

*2.20 IFCX) 1 .8;TYPE "C" 

In the above example, when line 2.20 is executed, if X is less than zero, control is transferred to line 1.8. If not, C 
is typed out. 

*3. 19 IFCB) 1 .8W .9 
*3.20 TYPE B 

In the above example, if B is less than zero, control goes to line 1.8, if B is equal to zero, control goes to line 1.9. 
If B is greater than zero, control goes to the next statement (in this case, line 3.20), and the value of B is typed. 

In programs that require a keyboard response (as in Section 4.7 line 3.2), it is useful to determine if the answer 
by the user to an ASK question is YES or NO. Alphabetic responses used with an IF statement permit one of two 
possible commands to be executed, depending on the user's answer. For example: 

IF (answer-0YES) 1.1,2.1, 1.1 

where answer is YES or NO, as typed by the user. The next command depends on whether answer is YES (in which 
case, answer-0YES equals 0, and line 2.1 is executed) or NO (producing a nonzero result and moving program 
execution to line 1.1). 



For example. 



*1.1 TYPE "DO YOU WANT A LINE?",! 
*1.2 ASK "TYPE YES OR NO",ANS, ! 
*1.3 IF (ANS-0YES) 2.1,2.2,2.1 
*2.1 QUIT 

*2.2 TYPE " ", ! 

*2.3 GOTO 1 . 1 

*G0 

DO YOU WANT A LINE? 

TYPE YES OR NO:YES 



DO YOU WANT A LINE? 
TYPE YES OR NO:NO 



If a GOTO or an IF command is executed within a DO subroutine, two actions are possible: 

a. If a. GOTO or IF command causes transfer to a line inside the DO group, the remaining commands in that 
group are executed as in any subroutine before returning to the command following the DO command. 

b. If transfer is to a line outside the DO group, that line is executed and control is returned to the command 
following the DO command unless that line contains another GOTO or IF. 

*ERASE ALL 

*1.1 TYPE "A"; SET X=-l; DO 3.1; TYPE "D"i DO 2 

* 1 . 2 DO 2.0 

*2. 1 TYPE "G" 

*2.2 IF (X) 2.5,2.6,2.7 

*2. 5 TYPE "H" 

*2.6 TYPE "I" 

*2.7 TYPE "J" 

*2.8 TYPE "K" 

*2.9 TYPE % 2.01,X; TYPE " "i SET X=X+1 

*3.1 TYPE "B"; GOTO 5.1J TYPE "F" 

*5. 1 TYPE "C" 

*5.2 TYPE "W" 

*G0 

ABCDGHI JK-1 .0 GIJK 0.0 GJK 1.0 BCW* 
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3.10 RETURN 

The RETURN command is used to exit from a DO subroutine. When a RETURN command is encountered during 
execution of a DO subroutine, the program exits from its subroutine status and returns to the command following 
the DO command that initiated the subroutine status. 

3.11 QUIT 

A QUIT command causes the program to halt and return control to the user. FOCAL types an asterisk and the user 
can type another command. 

3.12 COMMENT 

Beginning a command string with the letter C (except for COMMON) will cause the remainder of that line to be 
ignored to allow insertion of comments into the program. Such Unes are skipped over when the program is 
executed, but are typed out by a WRITE command. A program that is well documented with comments is more 
meaningful and easier to understand than one without comments. 

3.13 FOR 

This command is used for convenience in setting up program loops and iterations. The general format is 

*FOR A=B^ Cj D; (COMMAND) 

The identifier A is initialized to the value B. Then, the command following the semicolon is executed. When the 
command has been executed, the value of A is incremented by C and compared to the value of D. If A is less than 
or equal to D, the command after the semicolon is executed again. This process is repeated until A is greater than 
D; then, FOCAL goes to the next sequential Mne. 

The identifier A must be a single variable. B, C, and D can be either expressions, variables, or numbers. If a comma 
and the value C are omitted, it is assumed that the increment is one. If C,D is omitted, it is handled like a SET 
statement and no iteration is performed. 

The computations involved in the FOR statement are done in floating-point arithmetic, and it may be necessary, in 
some circumstances, to account for this type of arithmetic computation. 

Example 1 below is a simple example of how FOCAL executes a FOR command. Example 2 shows the FOR 
command combined with a DO command. 

Example 1: 



TYPE 7o7.03^ "B IS " B+A.. 



*ERASE ALL 


*3. 1 1 


SET A= 38 3. 38 3 


*3. 12 


FOR B=20^ 10W0; 


*G0 




B IS 


403.383 


B IS 


413.383 


B IS 


423.383 


B IS 


433.383 


B IS 


443.383 


B IS 


453.383 


* 




2: 





*1 . 1 FOR X.-\>2j9S do 2.0 

*1 .2 GOTO 3.1 

*2. 1 TYPE ! " "Z5> "X" X 

*2.2 SET A=X+100.00 

*2.3 TYPE ! " "%5i "A" A 

*3.1 QUIT 

*G0 
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X 


1 


A 


101 


X 


3 


A 


103 


X 


5 


A 


105 


X 


7 


A 


107 


X 


9 


A 


109* 



If two FOR statements are put on one line, the second FOR statement is performed in full for each incrementation 
in the first FOR statement. 

3.14 MODIFY 

Frequently, only a few characters in a particular line require changes. To facilitate this job, and to eliminate the 
need to replace the entire line, FOCAL has a MODIFY command. For example, to modify the characters in line 
5.41, the user types MODIFY 5.41 and then depresses RETURN key. The program then waits for the user to type 
the character he wishes to modify. After the user has typed the search character, the program types out the 
contents of that Une until the search character is typed. 

At this point, the user has seven options: 

a. Type in new characters in addition to the ones that have already been typed out. 

b. Type ALT MODE to continue the search to the next occurrence, if any, of the same search character. 

c. To change the search character, type CTRL BELL and the new search character as at the beginning of the 
MODIFY command. 

d. Use the RUBOUT key to delete one character to the left each time RUBOUT is depressed. 

e. Type a CTRL U to delete the line over to the left margin, but not the line number. 

f. Type carriage return to terminate the line at that point, removing the text to the right. 

g. Type a LINE FEED to save the remainder of the Une. 

The ERASE ALL and MODIFY commands are generally used only in immediate mode because they return to 
command mode upon completion. 

During command input, CTRL U deletes the hne numbers as well as the text if the CTRL U is the right-most 
character on the line. However, when using the MODIFY command the line number is not deleted by the 
use of CTRL U. Note the error in line 7.01. 

*7.0 1 JACK AND HILL WRNT UP THE GILL 

*MODIFY 7.01 

HJACK AND HXJRILL WRNEGNT UP THE G\H 

ILL 
♦WRITE 7.01 

07.01 JACK AND JILL WENT UP THE HILL 
* 

To modify Une 7.01, the user typed an H to indicate the character to be changed. FOCAL stopped typing when it 
encountered the search character, H. The user typed the RUBOUT key to delete the H, and then typed the correct 
letter, J. The user then typed CTRL BELL key followed by the R, the next character to be changed. The RUBOUT 
deleted the R and the user typed E. Again a serach was made (this time for the G), and the G was changed to H. 
The user typed a line feed to save the remainder of the line. 

When the MODIFY command (or another command which alters the stored indirect program) is used, the values in 
the user's symbol table (except those defined as COMMON) are reset to zero. Therefore, if the user defines his 
symbols in direct statements and then uses a MODIFY command, the values of his symbols are erased and must be 
redefined. 

However, if the user defines his symbols by indirect statements prior to using a MODIFY command, the values are 
not erased because these symbols are not entered in the symbol table until the statements defining them are 
executed. 
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In the example below, notice that the values of Y and Z were set using direct statements. The use of the MODIFY 
command reset their values to zero and listed them after the defined symbols: 

*ERASE ALL 

*SET Z=9 

*SET Y=8 

*1 . 1 SET X=3 

*1 .2 SET W=4 

*1.3 TYPE W+X+Y+ZJ TYPE \; TYPE S 

*MODIFY 1.1 

S SET X=5 

0.900000000E+01 

X@@(00)= 0. 500000000E+01 
W@ia(00)= 0.400000000E + 01 
Yis@(00)= 0.000000000E+00 
Zia@(00)= 0.000000000E+00 
* 

3.15 USING THE TRACE FEATURE 

As noted in Section 2.10, the trace feature is useful in checking an operating program. Those parts of the program 
which are enclosed in question marks are printed out as they are executed. (The trace feature is illegal for use in the 
multi-user FOCAL environment; see Chapter 8.) 

In the following example, parts of three lines are printed. 

♦ERASE ALL 

*1 . 1 SET A=2 

*1.2 SET B=5 

*1 .3 SET C=3 

*\.A TYPE %2j ?A+B-C?^! 

*1 . 5 TYPE ?B+A/C?> ! 

*1.6 TYPE ?B-C? 

*1 .6 TYPE ?B-C/A? 

*G0 

A+B-C 4 

B+A/C 6 

B-C/A A* 

Also, GO? will trace the program starting with the lowest numbered line, provided no other question marks are 
present in the program. 

3.16 INTERNAL FUNCTIONS 

The internal functions provide extended arithmetic capabilities. User defined external functions are described in 
Chapter 6. A standard function call consists of four letters, beginning with the letter F and followed by a 
parenthetical expression. 

The following are the internal functions: 

a. The square root function (FSQT) computes the square root of the expression within parentheses. 



♦ TYPE %:,FSQT(43.489) 
.659461902E+01* 

*TYPE FSQT(2.333) 
.1 52741612E+01* 

*TYPE FSQT(3718) 
.609754049E + 02* 
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b. The absolute value function (FABS) outputs the absolute or positive value of the number in parentheses. 



♦TYPE %> FABSC-394) 

0. 39400000aE+03* 
*TYPE FABS(-.93) 

0.930000000Z+00* 
*TyPE FABSC73) 

0.730000200E+02* 

c. The sign part function (FSGN) outputs the sign part ( + or - ) of a number and the interger part becomes a 1 . 
Zero is considered a positive number. 

*TYPE %, FSGN(-283.3) 
-0. 100300000E + 01* 
*TYPE FSGi\)(0.00) 

0. 100000 3001+0!* 
*TYPE FSGN (-0.38) 
-0. 100000000E+01+ 

d. The integer part function (FITR) outputs the integer part of a number up to ± 131071 (2'''-l). 

*TYPE %:,FITR(-34.8) 
-0 .340000000E + 02* 
*TYPE FITRC0 .73) 

0.000000000E+00* 
*TYPE FITRC374.92) 

.374000000E+03* 

e. The random number generator function (FRAN) computes a nonstatistical pseudo-random number be- 
tween -1 and +1 (Most numbers fall in the range to +1.). 

*TYPE %:> FRAiMC ) 

0. 110626628E-03* 
*TYPE FRANC ) 

0. 129700202E-03* 
* 

f. The exponential function (FEXP) computes e ( e = 2.718281) to the power within parentheses. 

*TYPE %, FEXPC27) 

0.532048241E+12* 
*TYPE FEXP(2.348) 

0. 104646196E+02* 
*TYPE FEXP<0.374) 

0. 145353715E + 01* 
* 



The sine function (FSIN) calculates the sine of an angle expressed in radians. 



♦TYPE %^ FSINC3.10) 

0.41 5806620E-01* 
*TYPE FSIN (0.27 8) 

0.274432986E+00* 
*TYPE FSIN( 1 .272) 

0.955691 507E+00+ 

FOCAL requires that angles be expressed in radians; thus, to find a function of an angle in degrees, the conversion 
factor, it/ 180, must be used. To find the sine of 10 degrees: 

*SET PI=3. 14159; TYPE FSIN( 1 0*PI/ 1 80) 
0. 173648033E+00* 
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h. The cosine function (FCOS) calculates the cosine of an angle expressed in radians. 



*TYPE %> FC0S(2*Pn 

0.100000000+01 
*TYPE FCOS ( .3 62 8) 

0.934906788E+00* 
*TYPE FCOS CI .37) 

. 199449720E+00* 



i. The arctangent function (FATN) calculates the angle in radians the tangent of which is the argument within 
parentheses. 



*TYPE %, FATNC 1.000) 
0.785398163E+00* 

*TYPE FATN (23. 44) 
0. 152816007E+01* 

*TYPE FATNC0.728) 
0.629271798E+00* 



j. The logarithm function (FLOG) computes the natural logarithm (loge) of the number within parentheses. 



*TYPE %. FL0G<238. 48467) 

0. 547430503E+01* 
*TYPE FLOG<0.2876) 
-0. 124618465E+01* 
*TYPE FLOGC 1 .23) 

0.207014169E+00* 
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CHAPTER 4 
EXAMPLES OF FOCAL PROGRAMS 



4.1 TABLE GENERATION USING FUNCTIONS 

The ability to evaluate simple arithmetic expressions and to generate values with the aid of internal functions is one 
of the first benefits to be derived from learning the FOCAL language. In the example that follows, a table of sine, 
natural logarithm, and exponential values is generated for a series of arguments. As the user becomes more familiar 
with these functions, he can easily combine them with standard arithmetic operations and evaluate any given for- 
mula for a single value or for a range of values. 



In this example, Une *1.01 outputs the desired column headings. Line * 1.10 is the loop to generate values for 1, 
beginnmg with the value 1.00000000 ana continuing in increments of .00000010 through the value 1.00000100; 
the DO 2.05 command at the end of this second Une causes the various functions to be executed for the I 
arguments. The output format %9.08 in line 2.05 specifies that all output results up to the next % symbol are to 
appear in fixed-point format with one digit position to the left of the decimal point and eight digit positions to the 
right; the second % symbol reverts the output mode back to floating point for the remaining values FLOG and 
FEXP. Line 01.20 (optional) returns control to the user. 

The following techniques are apparent in line *2.05 of this example: 

a. FOCAL commands can be abbreviated to the first letter of the command followed by a space, as shown by 
the use of T instead of TYPE. This technique can be used to shorten command strings. 

b. Arguments can be enclosed in various ways. This feature is useful in matching correctly when a number of 
enclosures appear in a command. 

c. Spaces can be inserted in an output format by enclosing the appropriate number of spaces within quotation 
marks. This procedure is recommended to improve the readabihty of the output results. 

d. The use of very small loop increments (in this example .0000001) eliminates the need to interpolate 
between table values of trigonometric functions. FOCAL is usually accurate to nine significant digits but 
rounding in certain cases may place some uncertainty on the 9th place. Thus, the user, in some circumstances, 
may need to account for the rounding. 
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*1 .0 
*1 . 1 

*1 .2 
*2.0 
*G0 





IT" I 

FOR 1=1^.02 

QUIT 

5 T %9.0 8,I:." 



I 

000C 



5000C 
5000C 



0000 
10 
20 
30 

00000040 
00000050 
00000060 
70 



3000 
3000 
3000 



0090 
0100 



SINE LOG 

00001^1.000001; DO 2.05 

"^FSIN(I)^" "^%jFLOG<I>V 



SINE 
.84147099 
,84147104 
.84147109 
.841471 15 
.84147120 
.84147126 
.84147131 
.84147136 
.84147142 
.84147147 
.841471 53 



LOG 
.806929521E- 
.999785677E- 
. 199876442E- 
.299733971E- 
.399631845E- 
.499529720E- 
.599427595E- 
.699285123E- 
.799182998E- 
.899040526E- 
.998978747E- 



■10 
07 
06 
■06 
■06 
■0 6 
06 
■06 
■06 
■06 
6 



^FEXPCI];. ! 



.27182 
.2 7182 
•27182 
.27182 
.27182 
. 2 7 1 82 
.27182 
.27188 
.271 82 
•27182 
.271 82 



81 83E+01 
8210E+01 
8237E+01 
8264E+01 
82 92E+01 
7319E+01 
8346E+01 
8373E+01 
8400E+01 
8427E+01 
8454E+01 



4.2 FORMULA EVALUATION FOR QRCLES AND SPHERES 

In this example, FOCAL is used to calculate, label, and output geometric values for an indefinite number of radii 
typed in by the user. 

Given a radius, R, FOCAL can calculate such values as: 

a. circle diameter: 2R 

b. circle area: rrR^ 

c. circle circumference: 2;rR 

d. sphere volume: 47rR^/3 

e. sphere surface area: 4irR^ 

Although inches are used in this example, conversions to other systems (metric, for example) could 
be easily incorporated into the program, without the need for hand-calculated conversions. 

The program is very straightforward. ASK is used to allow the user to type in the radius value to be used in the 
calculations. SET is used to supply the value off. TYPE is used for all calculations and output. If a value (e.g., ■jr in 
this example) is to be entered once and then used in repeated calculations, it should be entered by a SET command 
which is outside the calculation loop; otherwise, the variable must be set at the beginning of each pass through the 
loop. If the value of the variable changes during each iteration, however, then it must be calculated either by a SET 
or TYPE command within the loop. 



The use of the GOTO command (line *1.50) results in an infinite loop of lines *1.10 through *1.50. This technique 
is used when the number of desired repetitions is not known. The looping process can be terminated at any time by 
typing CTRL P. If, however, the number of desired repetitions is known (e.g., 10), the following method can be 
used. 



*SET 


PI =3.14159 


*1 .1 


ASK ... 


* 




* 




*1 .6 


TYPE ! ! ! ! ! 


*FOR 


I = 1 :.10J DO 
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The ability to choose between these methods provides great flexibility in actually running FOCAL programs. 



* 1 .01 


SET PI =3=1 41 59 


*1 .10 


ASK " A RADIUS OF 'SR^ "INCHES" 


*1 .20 


TYPE %8.04^ ! ;,"GENERATES A CIRCLE OF: "^ ! 


*1 .21 


TYPE " DIAMETER"^ 2*R^ " INCHES"^! 


*1 .30 


TYPE " AREA"^ PI*Rt2^" SQUARE INCHES"^! 


*1 .31 


TYPE " CIRCUMFERENCE"^ 2*PI*R^" INCHES",! 


*1 .40 


TYPE !, "AND A SPHERE OF:",! 


*1 .47 


TYPE " VOLUME", C 4/3) *PI *R ^ 3, " CUBIC INCHES 


*1 .50 


TYPE !!!!!; GOTO 1 .1 


*G0 




A RADIUS OF :26.39INCHES 


GENERATES A CIRCLE OF: 




DIAMETER 52.7800 INCHES 




AREA 2187.9041 SQUARE INCHES 




CIRCUMFERENCE 165.8131 INCHES 



AND A SPHERE OF: 

VOLUME 76985.053 CUBIC INCHES 



A RADIUS OF :0.73INCHES 
GENERATES A CIRCLE OF: 

DIAMETER 1.4600 INCHES 
AREA 1.6742 SQUARE INCHES 
CIRCUMFERENCE 4.5867 INCHES 

AND A SPHERE OF: 

VOLUME 1.6295 CUBIC INCHES 



4.3 ONE-LINE FUNCTION PLOTTING 

This example demonstrates the use of FOCAL to present, in graphic form, some given function over a range of 
values. In this example, the function used is 



y=30+15[sin(x)]e-o-ix 



with X ranging from to 15 in increments of .5. This damped sine wave has many physical applications, especially 
in electronics and mechanics (for example, in designing automobile shock absorbers). 



In the actual coding of the example, the variables I and J were used in place of x and y, respectively; any two 
variables could have been used. The single line 1.10 contains a set of nested loops for I and J. The J loop types 
spaces horizontally for the y coordinate of the function; the I loop prints the * symbol and the carriage return and 
line feeds for the x coordinate. The function itself is used as the upper Umit of the J loop, again showing the power 
of FOCAL commands. 



The technique illustrated by this example can be used to plot any desired function. Although the * symbol was 
used here, any legal FOCAL character is acceptable. 
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*1.1 F I=0>.5j15; T "*'%!; F J=0j 30+1 5*FSIN(I )*FEXP(- . 1*1); T " " 
* DO 1.1 



* 

* 
* 



* 

* 



* 

* 
* 
* 



* 
* 



* 



* 

* 

* 
* 

4.4 DEMONSTRATION DICE GAME 

Occasionally, the computer user will apply the computer to tasks solely for his own enjoyment. Because such 
pastimes are usually keyboard oriented, FOCAL lends itself nicely to these ends. The following example uses the 
random number generator, FRAN ( ), to produce dice combinations, as well as IF logic to check bets and winning 
combinations. 

Note again the use of initials to abbreviate commands throughout the example (remember that each such 
abbreviation must be followed by a space). 

The random number generator must be modified for use with statistical or simulation programs to achieve true 
randomness. However, it is sufficiently random for most appUcations in its present form. 

NOTE 

DEC does not assume any responsibility for the use of this 
routine or any similar routines. 

C FOCAL V3A 

01.10 S B=0|T !!"DICE GAME" !, "HOUSE LIMIT IS S1000" 

01.13 T ". MIN, BET IS £1.00"!! 

01.20 ASK "YOUR BET IS"A;I (1000-A) 3.10 

01.22 I (A-l)3.40, 1 .26* 1 .26 

01.26 IF (A-FITR(A))3.50,1 .30.,3.50 

01.30 ASK MJDO 2;SET D=Ci DO 2;T " "jSET D=D+C 

01.32 I CD-7) 1 .42*3.20W .42 

01.40 I (D-2) 1 .50*3.30* 1 .50 

01.42 I (0-11)1.40*3.20*1.40 

01.50 I (D-3) 1.60*3.30*1.60 

01.60 ASK MJDO 2*-S E = CJD0 2*T " ";S E = E + C 

01.72 I (E-7) 1.74*3.30*1.74 
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01.74 I (E-D) 1.60,3.20^1.60 

02.10 SET C = FITR(10*FABSCFRAN()))MF (0-6)2.20,2.20,2.10 

03.10 T "HOUSE LIMITS ARE $1000"!!; G 1.20 

03.20 S B=B+AjT %6.0, !"YOU WIN. YOUR WINNINGS ARE ", B, ! ! ; G 1.2 

03.30 S B=B-A;T %6.0, !"SORRY YOU LOSE- YOUR WINNINGS ARE ",B, !!jG 1.2 

03.40 T "MIN. BET IS $1"!!;G 1.2 

03.50 T "NO PENNIES, PLEASE" !! i GOTO 1.2 

DICE GAME . 

HOUSE LIMIT IS E1000. MIN, BET IS $1.00 

YOUR BET IS:. 50 MINIMUM BET IS SI 

YOUR BET IS: 15: 
6 3 : 

1 4 : 
4 5 

YOU WIN. YOUR WINNINGS ARE 15 

YOUR BET IS:5: 

2 2 : 
6 1 

SORRY, YOU LOSE. YOUR WINNINGS ARE 10 

YOUR BET IS:3: 

6 5 
YOU WIN. YOUR WINNINGS ARE 13 

YOUR BET IS: I'LL QUIT WHILE I'M AHEAD. THANKS! 
4.5 SIMULTANEOUS EQUATIONS AND MATRICES 

Many disciplines use subscripted variables for vectors in one, two, or more dimensions to store and manipulate 
data. A common use is the 2-dimensional array or matrix for handling sets of simultaneous equations. For example, 

Given: IXi + 2X3 + SXj = 4 

4X1 + 3X2 + 2X3 = 1 

1X1 +4X2 +3X3 =2 

Find: The values of X^ , Xj , and X3 to satisfy all three equations simultaneously. 

The solution can be reduced to simple mathematics between the various elements of the rows and columns until 
correct values of X are found. 

Each individual quantity in an array is referred to in terms of its position within the array. This identifier is a 
subscript. The notation A(I) refers to element I of array A. 

FOCAL uses only a single subscript. Thus, the handling of two or more dimensions requires the generation of a 
linear subscript which represents the correct position if it were stored in normal order, i.e., leftmost subscript 
moving fastest. 

In one dimension: For example: 

Element D could be represented as ARRAY(3); any element in 
this array can be represented by a subscript in the range 
through 4. The first element in an array always has a subscript 
ofO. 

In two dimensions: 

ARRAY (row, column) or A(I, J) 

This must be reduced to the form A(G). Because subscripts are linear, G is a function of I and J; that is, A(I,J) = 
A(G). Consider the diagram 
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ARRAY (0) 


A 


(1) 


B 


(2) 


C 


(3) 


D 


(4) 


E 






5 


10 


1 


6 


11 


2 


7 


12 


3 


8 


13 


4 


9 


14 



1= 

1 

2 
3 
4 

This array has five rows and three columns; thus, two values can be defined: 

IMAX=5 
JMAX=3 

To generate the number (G) in any box, using the corresponding values of I and J, the formula 

G = I + IMAX*J or A(G) = A(I + IMAX*J) 

can be used. Each element in a 2-dimensional array represents an area. The example for solving simultaneous 
equations, above, uses this algorithm for subscripts, merely by replacing I, IMAX, and J with J, L, and K, 
respectively, to form the equation 

A(J+L*K) 

In three dimensions 

ARRAY (row, column, plane) = A(I, J, K) = A(G) 
Three dimensions can be illustrated as rectangular soUd. 



K=0 /^15 /20 



1=0 




J=0 1 2 

This rectangular solid has dimensions of five rows, three columns, and four planes; thus, IMAX = 5, JMAX = 3, and 
KMAX = 4. Each plane is numbered exactly as in the 2-dimensional example, except 1 5 times K (with K = the num- 
ber of planes back from the first) is added to each subscript in the first plane. 

Example: Upper lefthand square, back one plane from the first =15 

I = 0, J = 0, K = 1 ; I + (IMAX*J) + (IMAX* JMAX*K) = 15 = G 

or 

A(0,0, 1) = A(15) 
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In four dimensions: 



ARRAY (row, column, plane, cube) = A(I, J, K, L) = A(G) 



Assign the values for IMAX, JMAX, KMAX; a method similar to the one used above yields 

G = I+(IMAX* J)+(IMAX* JMAX* K)+(IMAX* JMAX* KMAX* L) 
This process can theoretically be extended indefinitely to n-dimensions. 

C FOCAL V3A 

01.02 TYPE !"ROUTINE TO SOLVE MATRIX EQ . AX=B FOR X" ! 

01.04 ASK "ENTER DIMENSION OF A^ THEN 

01.05 TYPE !"ENTER COEFF'S AC J^ K) . . . AC J^ N) AND BCJ)"! 

01.10 ASK L^IjSET N=L-1j SET I=-l 

01.11 FOR K=0^NJ SET RCK)=K+1 

01.12 FOR J=0,N; TYPE !; FOR K=0,L; ASK ACJ+L*K) 
01.14 SET M=lE-6 

01.16 FOR J=0,N; FOR K=0,NJ DO 4 

01.17 SET R[PJ=0. 

01.18 FOR K=0jLJ set A[P+L*K]=ACP+L*K]/M 
01 .20 FOR J = 0jNj DO 5 

01 .22 SET 1=1 + 1 

01.23 IF CI-N) 1.14^ 1.26 > 1.14 

01-26 FOR J=0,NJ FOR K=0^N; DO 7 

01.28 FOR K=0,NJTYPE !%2^"XC"K,") 'S%8.05,XCK) 

01 .29 TYPE ! !; GOTO 1 .02 
04.05 IF CR<J>) 0, 4.3, 4.1 

04.10 IF CFABSCAC J+L*K) ) - FABSEMI) 4.3; 
04.20 SET M=ACJ+L*K) 
04.22 SET P=J; SET Q=K 

04.30 RETURN 

05.10 IF CJ-P) 5.2,5.4,5.2 

05.20 SET D=ACJ+L*Q) 

05.30 FOR K=0,L; SET A< J+L*K>=A<J+L*K>-A<P+L*K>*D 

05.40 RETURN 

07.10 IF C 1E-6-FABSCAC J+L*K) ]) 7.2i RETURN 

07.20 SET XCK)=AC J+L*L) 

ROUTINE TO SOLVE MATRIX EQ. AX=B FOR X 

ENTER DIMENSION OF A, THEN 

ENTER COEFF'S AC J, K) . . . AC J, N) AND BCJ) 

:3 

: 1 :3:2:4 

:3: 1 :2: 1 

XC 0) 0.25000 
XC 1) 1 .75000 
XC 2) - 0.75000 

ROUTINE TO SOLVE MATRIX EQ . AX=B FOR X 

ENTER DIMENSION OF A, THEN 

ENTER COEFF'S AC J, K) . . . AC J, N) AND BCJ) 

:3 



:4:5:2: 


3 




:l :3;8: 


5 




::2:6: 1 






XC 0) 




5.00000 


XC 1 ) 


- 


4.00000 


XC 2) 




1 .50000 
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4.6 INTEREST PAYMENT PROGRAM 

This is an example of a business-oriented FOCAL program. It is designed to completely describe the payments to 
be made on a loan, with interest, on an installment plan basis. 

Under program control, the computer requests as input the amount of a loan, the percentage of interest on that 
loan, and the length of time over which the loan is to be paid. The computer then calculates and types the amount 
of monthly payments to be paid, the total amount of interest to be paid, and a table showing interest paid, amount 
applied to principal, and balance due after each payment. 



C FOCAL V3A 

01 .02 TYPE ! I , %7.02 

01.20 TYPE " THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE" 

01.21 TYPE " CONTRIBUTION OF EACH" 

01.22 TYPE ! "PAYMENT TO INTEREST AND PRINCIPAL. PLEASE ANSWER THE" 

01.23 TYPE " FOLLOWING:";.!! 

01.30 ASK "WHAT IS THE AMOUNT OF THE PRINCIPAL?" PRINCIPAL 

01.31 ASK "WHAT IS THE RATE OF INTEREST?" INTEREST 

01.32 ASK "WHAT IS THE TERM. OF THE LOAN IN MONTHS?" TERM 
01 .33 TYPE ! ! 

01.40 SET D=1+(<INTEREST/12>*.01) 

01.41 FOR A=1^1^TERMJ DO 15.99 

01.42 SET C=PRINCIPAL/B 

05.01 SET BALANCE=PRINCIPAL 

05.02 TYPE "PRINCIPAL" 

05.03 TYPE PRINCIPAL; TYPE " 

05.04 TYPE "PAYMENTS"; TYPE Ci TYPE !!! 

05.05 TYPE " PAYMENT"; TYPE " 

05.06 TYPE "INTEREST"; TYPE " 

05.07 TYPE "PRINCIPAL"; TYPE " 

05.08 TYPE "BALANCE"; TYPE " "; TYPE ! 

06.01 FOR M=1,1,TERM; DO 7.00 

06.02 TYPE ! ! ! ; TYPE " "; 

06.03 TYPE "TOTAL I NTEREST", 7o6 .02 

06.04 TYPE TOTINTEREST 

06.05 TYPE ! ! ! 

06.06 GOTO 1 .02 

07.01 SET CINTEREST=BALANCE*(INTEREST/12)*.01 

07.02 SET TOTINTEREST=TOTINTEREST + CINTEREST 

07.03 SET CPRINCIPAL=C-CINTEREST 

07.04 SET BALANCE^BALANCE-CPRINCIPAL 

07.05 TYPE %7.02,M,%14.02 

07.07 TYPE CINTEREST, CPRINCIPAL>BALANCE> ! 
15.99 SET B=B+Cl/<D>tA) 



THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE CONTRIBUTION OF EACH 
PAYMENT TO INTEREST AND PRINCIPAL. PLEASE ANSWER THE FOLLOWING: 

WHAT IS THE AMOUNT OF THE PRI NCIPAL? : 2000 

WHAT IS THE RATE OF I NTEREST? : 6 . 4 

WHAT IS THE TERM OF THE LOAN IN MONTHS?; 12 

PRINCIPAL 2000.00 PAYMENTS 172.50 
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PAYMENT 


INTEREST 


PRINCIPAL 


BALANCE 


1 .00 


10.67 


161 .84 


1838.1 7 


2.00 


9.80 


162.70 


1675.47 


\< « f/l I/I 


C . O /I 


t /' 't C '7 






!-J - • -1 


i OO • J f 


1 31 1 .yW 


4.00 


8.06 


164.44 


1347.47 


5.00 


7.19 


165.32 


1 182.15 


6.00 


6.31 


166.20 


1015.96 


7.00 


5.42 


167.08 


848.87 


8.00 


4.53 


167.97 


680.90 


9.00 


3.63 


168.87 


512.03 


10.00 


2.73 


1 69 .77 


342.26 


1 1 .00 


1 .83 


1 70.68 


171 .59 


12.00 


0.92 


1 71 .59 


.00 



TOTAL INTEREST 



70.01 



4.7 INTERCEPT AND PLOT OF TWO FUNCTIONS 

Values are first computed and printed for two monotonic functions. Then these curves are plotted within specified 
limits. Non-monotonic functions must be plotted using the method of residuals. 

C FOCAL V3A 

01.01 T %8.04 

01.02 ASK "LOWER LIMI T'S LL.. ! "UPPER LIM I T"> UL. ! "INCREMENT".. IN, ! 
01. 10 SET Y1=0; SET Y2=0; 

01.20 FOR X=LL,IN.,ULi SET Yl = -X-3; SET Y2= 3+4*X-X 1 2J DO 2.0 

02.10 IF CY2-Y1) 2.3;.2.2,2.3 

02.20 TYPE "THE POINT OF INTERSECTION IS ".. ! 

02.30 TYPE "X1 = ":,XV ","Y1 = "jY1, ! VX2=";,X," ", "Y2="> Y2> ! ! 

03.10 TYPE "DO YOU WANT A PLOT?" 

03.20 ASK "(TYPE Y FOR YES- TYPE N FOR NO) ",AN, !! 

03.30 IF (AN-0Y)9. 1j4. 1..9. 1 

04.10 FOR X=LL>IN>UL; DO 5.0 

05.01 IF (X) 5. 1.. 5.02.. 5. 1 

05.02 TYPE " Y Y"..# 

05.10 FOR Y=0..30>- TYPE " " 

05.20 TYPE "."..# 

05.30 FOR Y=0O0+C-X-3) J TYPE " " 

05.40 TYPE "*"># 

05.50 FOR Y=0.,30+(3+4*X-XT2)i TYPE " " 

05.60 TYPE "*";. ! 

09. 10 QUIT 



*L IN TWOFNC 
LOWER LIMIT:-l! 

UPPER LIMIT: 10 

INCREMENTrl 



Xl=- 


10 .0000 


Yl = 


7.0000 


X2 = - 


10 .0000 


Y2 = - 


137.0000 


Xl=- 


9.0000 


Yl = 


6 .0000 


X2 = - 


9.0000 


Y2 = - 


1 14.0000 


Xl=- 


8.0000 


Yl = 


5.0000 


X2 = - 


8.0000 


Y2=- 


93.0000 


Xl=- 


7.0002 


Yl = 


4.0000 


X2 = - 


7.0000 


Y2^- 


74.0000 


Xl=- 


6.0000 


Yl = 


3.0003 


X2 = - 


6.0000 


Y2 = - 


57.0000 
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Xl=- 


5.0000 


Yl = 


2.0000 


X2 = - 


5.0000 


Y2 = - 


42.0000 


Xl=- 


4.0000 


Yl = 


1 .0000 


X2 = - 


4.0000 


Y2 = - 


29.0000 


Xl=- 


3.0000 


Yl = 


.0000 


X2=- 


3.0000 


Y2 = - 


18.0000 


Xl=- 


2.0000 


Yl=- 


1 .0000 


X2 = - 


2.0000 


Y2=- 


9 .0000 



THE POINT OF INTERSECTION IS 
Xl=- 1.0000 Yl=- 2.0000 
X2=- 1.0000 Y2=- 2.0000 



Xl = 


0.0000 


Yl=- 


3.0000 


X2 = 


.0000 


Y2 = 


3.0000 


Xl = 


1 .0000 


Yl=- 


4.0000 


X2 = 


1 .0000 


Y2 = 


6.0000 


Xl = 


2.0000 


Yl=- 


5.0000 


X2 = 


2.0000 


Y2 = 


7.0000 


Xl = 


3.0000 


Yl=- 


6.0000 


X2 = 


3.0000 


Y2 = 


6.0000 



Xl = 


4.0000 


Yl=- 


7.0000 


X2 = 


4.0000 


Y2 = 


3.0000 


Xl = 


5.0000 


Yl=- 


8.0000 


X2 = 


5.0000 


Y2 = - 


2.0000 



Xl = 


6.0000 


Yl=- 


9.0000 


X2 = 


6.0000 


Y2=- 


9 .0000 


Xl = 


7.0000 


Yl=- 


10.0000 


X2 = 


7.0000 


Y2 = - 


18.0000 



Xl = 


8 .0000 


Yl=- 


11 .0000 


X2 = 


8.0000 


Y2 = - 


29 .0000 


Xl = 


9.0000 


Yl=- 


12.0000 


X2 = 


9 .0000 


Y2=- 


42.0000 



Xl = 


10 .0000 


Yl=- 


1 3.0000 


X2 = 


10 .0000 


Y2 = - 


57.0000 


Xl = 


1 1 .0000 


Yl=- 


1 3.0000 


X2 = 


1 1 .0000 


Y2 = - 


57.0000 
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DO YOU WANT A PLOT?(TYPE Y FOR YES. TYPE N FOR NO) :Y 



* 
* 
* 
* 
* 
* 



* 



* 
* 



4.8 SCHROEDINGER EQUATION SOLVER 

This program is designed to aid the user in searching for possible energy-states of an electron in a potential well. 
This is one of the most complex equations yet written in FOCAL. It calculates and plots the energy levels of an 
electron within specified boundary conditions. 

C FOCAL V3A 

01.01 T !^"SCHROEDINGER EQUATION SOLVER -", ! 

01.02 T i.j" -DELSQUARED PSI + AX * PSI = E * PSI",!! 

01.03 A "TILTED SQUARE WELL PROBLEM WITH WIDTH", X0j! 

01.08 A "WELL TILT SLOPE A", Al , ! , "TRI AL ENERGY E">B1:,! 

01.09 A "NUMBER OF STEPS", NT, ! 
01.11 S VF=0; S SL=1 

01.70 S P(0)=0; S DX=X0/NT; S P(1)=SL*DX; S R0=0 

01 .75 S VF=0 

01 .80 S P0=0 

01 .90 F N=0,1,NT-2J D 6 

01.93 T !,"PSI ZEROS"%2.0, P0 

01 .95 GOTO 7.02 

05.10 T !,%3.0, PX," PSI",%,PCPX),"." 

05.20 S PZ=FITR(PM*SC); S PE=FI TR< CP CPX]+PM) *SC> 

05.30 F X=1,1,PZ-1J T " " 

05.40 T ".",#; F X=1,1,PE+24J T " " 

05.50 T "*•'} R 

06.10 S PCN+2)=<(-Bl+Al*DX*[N+l ])*DXT2+2>*P(N+1 )-P(N) 

06.20 I (NT-N-2) 12.90,6.9,6.3 

06.30 S RB=P(N+2)*P(N+1); I (RB) 6.4,6.4,6.9 

06.40 S P0=P0+1 ; R 

06.90 CONTINUE 

07.02 S CF=(P<NT>/P<1 >) tgj T 

07.05 A " NEW E?"NY 

07.07 I (NY-9) 7.9,7.08,7.9 

07.08 I (VF) 7.09,7.8,7.09 

07.09 I (CF-100) 7.1,7.1,7.8 

07.10 S R2=P(NT)*VF! I CR2) 
07.73 S DB=-0.5*DB; GOTO 7.85 
07.80 S DB=0.1 



CONV IND"%, CF 



7. 7^ . 7 . CCT . 7 - C c; 
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07.85 S B1=B1*( 1+DB); T Bl; S VFCNT); G 1-80 

07.90 DO 145 GOTO 12.01 

12.01 T !j!j"EIGEN E"B1; S HP=B1 /(A1 *X0 ) 

12.20 T " EN/MAX POT"HP, ! 

12.90 QUIT 

14.10 S PM=0; S PP=0i F PX=1,1,NTJ D 15 

14.20 S PS=PM+PP5 S SC=45/PS 

14.30 T <<<} F PX=1, 1^705 T "." 

14.40 F PX=0^ 1,NTJ D 5 

14.50 T ! JF PX=1, 1,70; T "." 

14.60 T ! ! ; R 

15.10 I CPEPX]) 15.2, 1 5. 9> 15.5 

15.20 I CPM+P<PX>) 15.3,15.4,15.4 

15.30 S PM=FABSCP[PX]) 

15.40 RETURN 

15.50 I (P<PX>-PP) 15.9,15.9,15.6 

15.60 S PP=P(PX) 

15.90 RETURN 

* 

SCHROEDINGER EQUATION SOLVER - 

-DELSQUARED PSI + AX * PSI = E * PSI 
TILTED SQUARE WELL PROBLEM WITH WIDTH: 1 
WELL TILT SLOPE A: 40 
TRIAL ENERGY E: 50 
NUMBER OF STEPS: 15 

PSI ZEROS 1 CONV IND . 50 1 32646 3E+0 1 NEW E? : Y 



.000000000E+00. * 

.666666667E-01 . . * 

. 1 19308642E+00. • * 

. 143265643E+00. . * 

. 149546390E+00. . * 

. 124684213E+00. . * 

.795031267E-01 . . * 

.223082351E-01 . • * 

.379932849E-01 . * 

.934541789E-01 . * 

■ 1 38 1 1 5924E + 00 « * 

. 168454535E+00. * 

. 183320286E+00* 

. 18352041 4E+00* 

. 17 1213966E+00.* 

. 149268805E+00. * 






PSI 





1 


PSI 





2 


PSI 





3 


PSI 





4 


PSI 





5 


PSI 





6 


PSI 





7 


PSI 





8 


PSI- 


-0 


9 


PSI- 


-0 


10 


PSI- 


-0 


1 1 


PSI- 


-0 


12 


PSI- 


-0 


13 


PSI- 


-0 


14 


PSI- 


-0 


15 


PSI- 


-0 



EIGEN E 0.500000000E-t-02 EN/MAX POT . 1 25000000E-H0 1 
* 
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CHAPTER 5 
LIBRARY COMMANDS 



FOCAL library commands allow the user to save and then call programs by name. These commands cause files 
consistent with the Advanced Software file format to be produced and accepted. These files, which use lOPS ASCII 
data mode, can be manipulated by other Advanced Software programs such as PIP and EDITOR. In addition to the 
library commands, a COMMON command and an ERASE COMMON command are available. These commands 
allow the effective segmentation (chaining) of FOCAL programs, with the COMMON area defining those variables 
which are to be used by all segments. 

5.1 LIBRARY OUTPUT COMMANDS 

Three operations are required to produce a file with the FOCAL library commands: 

a. File initialization 

b. File output 

c. File termination 

5.1.1 Library File Initialization 

The command 

*LIBRARY OUT NA-YE 

initializes a file on the output device associated with .DAT slot 5. If the device is bulk storage (i.e., has named 
files), then the file name NAME is used. NAME can be up to six alphanumeric characters and is terminated by a 
carriage return. The extension FCL is supplied by the system. 

5.1.2 Library File Output Operations 

Commands of the form 

*L I brak y wr I T e: nnn 

cause information to be entered into the library file. The character string NNN can take four forms which are 
explained below. 



If the character string NNN, in the example above, begins with quotation marks ("), the command indicates that 
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the character string following the quotation marks is to be inserted into the file. This character string may be any 
FOCAL command. 

For example, the command here is an *, a FOCAL symbol typed by the user to signal termination of input from 
the device associated with .DAT slot 3. 

^LIBRARY WRITE "*i GO 

causes the command 

*; GO 

to be inserted into the library file as a direct command. This will start the prograiri when the file is later called for 
execution by a library input command. 

5.1 .2.2 Single Lme Output 

If the character string NNN is a legal line number which is present in the program in core, this command causes a 
single line to be inserted into the file. For example, the command 

♦LIBRARY WRITE 10.02 

causes line 10.02 to be inserted into the currently opened output file. 

5.1.2.3 GroupOutput 

If the character string NNN is a legal group number, this command causes the entire group of lines to be inserted 
into the file. For example, the command 

♦LIBRARY WRITE 2.00 
causes all group 2 lines to be inserted into the current output file. 

5.1.2.4 Program Output 

If the character string NNN is ALL or A, then the entire indirect program is inserted into the current output file. 

5.1.3 Library File Termination 

After using the appropriate library output commands, it is necessary to issue the command 
♦LIBRARY CLOSE 

to complete file output and enter the file name into the directory of the mass storage unit of the Advanced 
Monitor System. The LIBRARY CLOSE command allows an input or output file to be closed. An error message 
"?35" will be printed if a file has not been opened. If the LIBRARY CLOSE command is not issued, the user 
remains in Ubrary mode and all other commands are illegal. However, to leave library mode without actually 
finishing the output file, the command 

♦LIBRARY KILL 

is used. After using this command, the user is in command mode, and the file which had been started by the library 
output commands is lost. 

5.2 LIBRARY INPUT COMMANDS 

To load a library file which has been output from FOCAL or which has been prepared off-line, the command 

♦LIBRARY IN NAME 

is used where NAME follows the conventions used for library output. The library input from the device associated 
with .DAT slot 3 is terminated by an end of file or end of tape condition on the input file. It is also terminated by 
the presence of a direct command of asterisk (*), supplied during a LIBRARY WRITE command within the Ubrary 
file. If none of these three conditions occurs, FOCAL assumes that subsequent input (e.g., for ASK command) will 
come from the device associated with .DAT slot 3. This direct command can be a multiple command, which can 
provide automatic program starting. For example, a direct command to terminate input and to start a program at 
line number 8.21 would be 

♦J GOTO 8.21 
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This command can be inserted at the end of the library output by the command 

*LIBRARY WRITE "*j GOTO 8.2! 

5.3 LIBRARY .DAT SLOT USAGE 

The FOCAL library commands assume input on .DAT slot 3 and output on .DAT slot 5 from the Advanced 
Monitor, and the FOCAL data commands assume input on .DAT slot 7 and output on .DAT slot 1(5 from the 
Advanced Monitor. The recommended assignment to the Linking Loader is the System Library located on unit (8 
on the DECtape thumbvsrheel) where the FOCAL system is also located. The .DAT slot for the System library is -4 
and for the FOCAL system it is -1 . 

Assignments for DECtape or Disk in the Advance Monitor environment follovs^. 

.DAT Slot Contents Samples Assignment 

.DAT -1 System Library DTEO (DKE0) -1 

.DAT -4 FOCAL (XCU, XCT) DTEO (DKE0) -4 

FOCAL binary program 

.DAT 3 FOCAL library input DTEl (DKEl) 3 

.DAT 5 FOCAL Ubrary output DTEl (DKEl) 5 

.DAT 7 FOCAL data input DTEl(DKEl) 7 

.DAT 1 FOCAL data output DTE 1 (DKE 1)10 

FOCAL data commands are described in Chapter 7, and .DAT slot assignments are further summarized in 
Appendix E. 

5.4 COMMON VARIABLES AND ARRAYS 

The COMMON command allows the user to define permanent FOCAL variables and arrays which are saved with 
their current values when the user modifies the stored indirect program. Thus, the caution at the MODIFY 
command (refer to section 3.14.1) does not apply to COMMON variables. The COMMON command is legal only if 
no other variables have been defined in the symbol table. Thus, it is good programming practice to precede a 
COMMON definition by an ERASE command to clear the symbol table. If any non-COMMON variables have been 
defined when the COMMON command is executed, it will be treated as a COMMENT and ignored. 

5.4.1 COMMON Format 

Three types of variables can be defined in a COMMON command as the following example shows. 

*C0HMON A,BC5),CC* 1.. 1>3) 

The first variable, A, defines a single non-subscripted variable. The second variable, B(5), defines a single array 
element to be COMMON. All other elements of the array B are non-COMMON. The third variable (C,l,l,3) defines 
a series of array elements as COMMON by using a notation similar to the FOR statement. Thus, the command 

is equivalent to the command 

♦ COMMON CC1),CC2),C(3>»C<-4)>CC5) 

but much shorter. Note that, because COMMON and COMMENT both have the initial letter C, the COMMON 
command must not be abbreviated (refer to Section 2.12). 

5.4.2 ERASE COMMON Command 

The ERASE COMMON command must be used to clear the COMMON area if a user wishes to define a completely 
new COMMON area. It will clear both the COMMON area and all variables in the symbol table, but not the program 
itself. If, however, the user simply wants to add to the current COMMON area, it is only necessary to erase any 
non-COMMON variables by using ERASE. The ERASE ALL command has no effect on the COMMON area 
variables and does not change their values. 
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5.5 CHAINING OF FOCAL PROGRAMS 

For FOCAL programs that exceed the capacity of user's core memory, it is possible to segment the program. By 
combining the library input and COMMON commands, one segment can call another by name. ALL COMMON 
variables are retained in core memory for access to them from all segments of the program. New COMMON 
variables can be added to the permanent table from any segment. The command LIBRARY IN NAME brings in the 
next segment to core memory and provides access to the COMMON table for the operations in this segment of the 
program. 

NOTE 

Ensure that a segment does not exceed its allotted memory 
location or the overflow will begin to erase the compiler in 
core. 
The following example shows three FOCAL segments and the operations required to provide the segments with 
linkage capability. The first segment, named CHI, defines a COMMON area and initiaUzes the variables. If CHI is 
called again, it checks for the values in the second part of the COMMON area which were defined in CH2 and 
QUITS. The second-segment, CH2 defines more COMMON variables, checks the original COMMON values created 
in CHI, and initializes the additional COMMON variables. The third segment checks all the COMMON values and 
calls the first segment again. 



*WRITE 

C FOCAL V3A 

01.05 TYPE "CHI READY"..! 

01.10 COMMON A^BjC (ABC^l ..5) 

01 .20 IF (A) 20 . 1 .,1 .3^20. I 

01 .30 SET A = l 

01 .40 SET B-2i SET C=3 

01.50 FOR X=1j5; set ABCCX)=X*10 

01.55 TYPE "CHI DONE - CALLING CH2"j! 

01 .60 LIBRARY IN CH2 

20.10 IF (0-10) 20.2..20 .3.,20.2 

20.20 TYPE "COMMON ERROR ON 2ND CALL OF CHI" 

20.30 TYPE "ALL DONE".,!; QUIT 



Listing 
of CHI 



*LIBRARY 
*LIBRARY 
♦LIBRARY 
♦LIBRARY 
♦LIBRARY 



OUT CHI 
WRITE "ERASE 



ALL 



WRITE 
WRITE 
CLOSE 



ALL 
"*; 



GO 



Library 
Output 
of CHI 



♦WRITE ALL 



C FOCAL V3A 

01.10 TYPE "CHS READY".,! 

1 .20 COMMO N Qj < ABCj 5 j It 10) 

01.30 FOR X=6^10J S ABC(X)=X+10 

01.40 FOR X=l.,10i DO 25.0 

1.50 IF (A+B + C-6) 1.6W.7W.6 

01.60 TYPE "CH2 COMMON ERROR - SUM = "..A+B + C>! 

01.70 TYPE "CH2 DONE - CALLING CH3".,! 

01 .80 LIBRARY IN CH3 

25.10 IF (ABC(X)- 10 + X) 25.2..25. 3..25.2 

25.20 TYPE "ERROR AT X = "..X.." ABC ARRAY = "..ABC(X).. 

2 5.30 RETURN 



Listing 
ofCH2 
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+LIBRARY 


OUT CH2 




^LIBRARY 


WRITE 


"ERASE 


*LIBRAftY 


WRITE 


ALL 




^LIBRARY 


WRITE 


"*; 


GO 


♦LIBRARY 
* 


CLOSE 






*WRITE ALL 







ALL 



Library 
Output 
ofCH2 



01 .10 TYPE "C.H3 READY'S! 




01 .20 SET 0=10 




01.30 FOR 1=1^10; DO 25.0 




01.40 TYPE "CH3 DONE - CALLING CHI AGAIN' 


J ! 


01 .50 LIBRARY IN CHI 




25.10 IF <ABC(X)-10*) 25 .2 ^25 .3 ;.25 .2 . 




25.20 TYPE "ERROR AT X = ",X>" ABC ARRAY 


^jABC(X) 


25.30 RETURN 




♦LIBRARY OUT CH3 




♦LIBRARY WRITE "ERASE i .00 




♦LIBRARY WRITE 1 .00 




♦LIBARY WRITE "*} GO 




♦LIBARY CLOSE 
♦ 




FOCAL V3A 




♦ERASE COMMON 




♦LIBRARY IN CHI 




CHI READY 




CHI DONE - CALLING CH2 




CH2 READY - 




CH2 DONE - CALLING CH3 




CHS READY 




CH3 DONE - CALLING CHI AGAIN 




CHI READY 




ALL DONE 




♦TYPE $ 




A©© (00 )= 1 .00 




B@©C00)= 2.00 




Cia@800)= 3.00 




ABCC01)= 10.00 




ABCC02)= 20.00 




ABC(03)= 30.00 




ABCC04)= 40.00 




ABC(05)= 50.00 




Q(a@800)= 10.00 




ABCC06)= 60.00 




ABC(07)= 70.00 




ABC(08)= 80.00 




ABC(09)= 90.00 




ABC(10)= 100.00 





\ Listing 
' of CHS 



■N 



Library 
Output 
of CHS 



Library Input and 
Execution of Chained 
Programs CHI, CH2 
and CHS 



J 



Dump of 

COMMON 

Symbols 
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CHAPTER 6 

USER DEFINED FOCAL FUNCTIONS 



The ability to write FOCAL functions in MACRO assembly language t and subsequently interface these functions 
with the FOCAL interpreter is an important feature which allows real-time use of FOCAL. These functions are 
processed in the same way as the normal internal functions supplied with the interpreter (i.e., FSIN, FITR, etc.). 
Some external functions are provided in the FNEW file (Refer to Section 6.2). User-defined functions can be 
incorporated into the source file of FNEW, which, when reassembled by MACRO, can be loaded with FOCAL. The 
interface of external functions is accompUshed by: 

a. Use of a function table which contains the three letter function name in .SIXBT (6-bit ASCII) and a jump 
to the function processor 

b. Use of .GLOBL definitions which allow the function processors to use character processing and expression 
evaluation routines which are in the interpreter. (Refer to listing under FOCAL operations printout in this 
chapter.) 

The foUovsdng detailed examples show the operations necessary to write a FOCAL function in MACRO. 



6.1 EXAMPLE 



A scope routine has been generated to display characters at a given point on a scope. This routine is called from 
FOCAL as a function by XYC (X, Y, SHOW). Here, X and Y are expressions to be used as display coordinates 
for the start of SHOW. 

First, the function name and transfer instruction must be added to the function table: 



.SIXBT /XYC/ 

JMP SETXYC 

When control arrives at SETXYC, the X has already been evaluated: 

SETXYC JMS* .AX /make 18 bits 

DXL /set X coordinate 



t The MACRO -9 and -15 assembly languages are described in manuals DEC-9A-AMZA-D and DEC-15-AMZA-D, 
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Now, check for the second argument and give an error if no second argument is given. 



Program 

JMS* 

SAD 

JMP 

.DEC 

LAW 

.OCT 

JMP* 

Move past the separating comma. 

JMS* 
Evaluate the second argument. 

LAC 
DAC 
JMS* 
XX 



Comment 

XSFNOR 

(254 
.+3 

1 

FUNERR 



UTRA 



EVAL 

.+2 

XPUSHJ 



/skip spaces 
/is it a comma? 
/yes 

/?01 error 

/function error 



/address of evaluation routine 



The second argument must be made into an 18-bit quantity and the y coordinate set: 

JMS* .AX 

DYL 

Test for a comma; if present, bypass it to get to the character string. 



JMS* 

SAD 

JMP 

.DEC 

LAW 

.OCT 

JMP* 

JMS* 



XSPNOR 

(254 
.+3 



FUNERR 
UTRA 



/skip spaces 
/is it comma 

/yes 

/?01 error 

/error return 
/skip comma 



Now, pick up the single ASCII characters and display them. (This example assumes the character display routine is 
called DYCHAR.): 



DCLOOP 



LAC* 

JMS 

JMS* 

SAD 

JMP* 

JMP 



CHAR 


/get character 


DYCHAR 


/display it 


UTRA 


/get next char 


(251 


/is it end? 


EFUN3 


/yes-return 


DCLOOP 


/no-go display next character 



6.2 FILEFNEW 



The following functions are supphed in the library FNEW tape (where N cannot be another function): 
Function Meaning 



FDXS (N) 
FDIS (M) 
FDXY (N, M) 
FADC (N) 
FDAC (N) 
FRLB (N, M) 



Set the X coordinate of the 34H display. 

Set the y coordinate of the 34H display and intensify the point. 

Set the X and y coordinates and intensify. 

Set the multiplexer of the A/D converter and perform one conversion. 

Set the D/A converter to the specified value. 

If N = -1, clear the relay buffer (M should not be specified) 

If N = to 17, set the appropriate bit of relay buffer according to the value of M (0 

orl). 
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The functions are supplied to: 

a. provide a basic set of external functions: 

b. provide the user with additional examples in the method of coding external functions. 

The listing that follows is that of the library supplied FNEW tape which is distributed in both source and binary 
form. 



•TITLE FNEW 

/ 

/FOCAL EXTERNAL FUNCTION PROGRAM 

/ 

/COPYRIGHT 1969 

/DIGITAL EQUIPMENT CORP. 

/MAYNARD.. MASS- 

/ 

/DAVE LENEY 

/2-7-69 

/ 

•GLOBL -NEWF /FUNCTION TABLE 

•GLOBL XPUSHJ /PUSH JUMP 

•GLOBL XPUSHA /PUSH AC 

•GLOBL PD2 /PUSH FP 

•GLOBL PD3 /POP FP 

•GLOBL UTRA /GET CHAR 

•GLOBL XSPNOR /SKIP SPACE & ZEROS 

•GLOBL FUNERR /FUNCTION ERROR 

•GLOBL EFUN3 /FUNCTION RETURN 

•GLOBL PINT /FLOATING ARITH 

•GLOBL CHAR /CHAR STORAGE 

•GLOBL EVAL /EXPRESSION EVALUATOR 

•GLOBL .AA /EXPONENT C2'S COMP ) 

•GLOBL .AB /SIGN AND HIGH ORDER MANTISSA 

•GLOBL .AC /LOW ORDER MANTISSA 

•GLOBL •BA /NEGATE 

•GLOBL •AX /FIX 

•GLOBL .AW /FLOAT 

FPOW=000000 

FADD=100000 

FSU3=200000 

FMUL=300000 

FDIV=400000 

FGET=: 500000 

FPUT=600000 

FNOR=700000 

FXIT=000000 

/ 

•EJECT 

/ 

/FOCAL OPERATIONS CFOCAL SOURCE EQUIVALENT IN PARENS) 

/ 

/PUSH JUMP TO EXPRESSION EVALUATOR (PUSHJ EVAL) 

/ LAC EVAL 

/ DAC .+2 

/ JMS* XPUSHJ 

/ XX 

/ 

/PUSH THE HARDWARE ACCUMULATOR (PUSHA ) 

/ JMS* XPUSHA 

/ 

/POP THE HARDWARE ACCUMULATOR CPOPA) 

/ LAC* 1 3 
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/ 

/PUSH FLOATING ACCUMULATOR CPUSHF-AA) 

/ LAC .AA 

/ DAC .+2 

/ JMS* PD2 

/ XX 

/POP FLOATING ACCUMULATOR (POPF .AA) 

/ LAC .AA 

/ DAC .+2 

/ JMS* PD3 

/ XX 

/ 

/PUSH FLOATING VARIABLE (PUSHF VAR) 

/ JMS* PD2 

/ .DSA VAR /WHERE VAR IS THE FIRST OF 

/ /THREEO) REGISTER BLOCK 

/ 

/POP FLOATING VARIABE (POPF VAR) 

/ JMS* PD3 

/ -DSA VAR /SAME AS FOR PUSHF VAR 

/ 

/FETCH CURRENT CHARACTER 

/ LAC* CHAR 

/ 

/FETCH NEXT CHARACTER (GETO 

/ JMS* UTRA /CHARACTER IN BOTH CHAR AND AC 

/ 

/IGNORE LEADING SPACES AND ZEROS CSPNOR) 

/ JMS* XSPNOR /NEXT CHARACTER IN BOTH CHAR AND AC 

/ 

/INDICATE A FUNCTION ERROR (ERROR NN) 

/ .DEC 

/ LAW NN /NN=TWO DIGIT (DECIMAL) ERROR CODE 

/ .OCT 

/ JMP* FUNERR /ERROR WILL HAVE DOUBLE QUESTION MARK 

/ 

/RETURN FROM FUNCTION (RETURN) 

/ JMP* EFUN3 /VALUE OF FUNCTION IN FLOATING AC 

/ 

/ENTER FLOATING POINT INTERPRETER (JMS FINT) 

/ JMS* FINT /FROM HERE ON ALL INSTRUCTIONS 

/ FNN A /ARE ASSUMED TO BE FLOATING POINT 

/ FNN* B /UNTIL FXIT IS REACHED - FNN 

/ FNN C /REFERS TO FLOATING POINT OPERATIONS 

/ FXIT /LISTED NEXT. 

/ 

/FLOATING POINT OPERATIONS (USE * FOR INDIRECT) 

/RAISE F.P. AC TO VAR/CONSTANT 

/ADD F.P. VARIABLE/CONSTANT TO F.P- AC 

/SUBTRACT FROM F.p. AC 

/MULTIPLY THE F.P. AC 

/DIVIDE INTO THE F.P. AC 

/LOAD INTO THE F.P. AC 

/STORE THE F.P. AC 

/NORMALIZE THE F.P. AC 

/EXIT FROM FLOATING POINT MODE 

/ 

/NEGATE THE FLOATING ACCUMULATOR 

/ JMS* .BA 

/ 

/FIX THE FLOATING ACCUMULATOR INTO THE HARDWARE ACCUMULATOR 

/ JMS* -AX 



/ 


FPOW 


VAR 


/ 


FADD 


VAR 


/ 


FSU3 


VAR 


/ 


FMUL 


VAR 


/ 


FDIV 


VAR 


/ 


FGET 


VAR 


/ 


FPUT 


VAR 


/ 
/ 


FNOR 
FXIT 
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/ 

/FLOAT THE HARDWARE ACCUMULATOR INTO THE FLOATING ACCUMULATOR 

/ JMS* -AW 

/ 

/ 

/EXTERNAL FUi'^JCTION TABLE FORMAT 

/ WORD 0: TWO'S COMPLEMENT COUNT OF NUMBER OF ENTRIES 

/ WORDS 1 TO 2N: N TWO WORD ENTRIES 

/ EACH ENTRY: WORD0 : -SIXBT THREE LETTER FUNCTION NAME 

/ WORDl : JMP TO FUNCTION ADDRESS 

/ 

/ 

•EJECT 
/ 

/TABLE OF NAMES OF EXTERNAL FUNCTIONS 
/ 
.NEWF .NEWFE-.-l/2\777777+l /TWO'S COMP COUNT OF NAMES 

•SIXBT /DXS/ 

JMP SETX /SET X COORDINATE 

•SIXBT /DIS/ 

JMP SETYI /SET Y COORDINATE AND INTENSIFY 

•SIXBT /DXY/ 

JMP SETXYI /SET X AND Y AND INTENSIFY 

•SIXBT /ADC/ 

JMP SETADC /SET MULTIPLEXER AND CONVERT 

•SIXBT /DAC/ 

JMP SETDAC /LOAD D/A CONVERTER 

•SIXBT /RLB/ 

JMP SETRLB /SET RELAY BUFFER 

•NEWFE= • 
/ 

/lOT DEFINITIONS 
/ 

DYL=700606 /LOAD Y COORDINATE 

DXS=700546 /LOAD X COORDINATE AND INTENSIFY 

ADSF=701301 /SKIP ON A/D FLAG 

ADSC=701304 /SELECT AND CONVERT 

ADRB=701312 /READ A/D BUFFER 

ADSM = 70n03 /SET MULTIPLEXER 

DALl =705501 /LOAD D/A CHANNEL ONE 

ORC=702101 /CLEAR RELAY BUFFER 

ORS=702104 /SET RELAY BUFFER 

/ 

•EJECT 
SETX JMS* -AX /SET X COORDINATE 

DAC XCOORD /SAVE 

JMP* EFUN3 /RETURN 

SETYI JMS* •AX /SET Y COORDINATE 

DYL /LOAD REG WITH Y 

LAC XCOORD 

DXS /LOAD WITH X AND INTENSIFY 

JMP* EFUN3 /RETURN 

SETXYI JMS* •AX /SET X COORDINATE 

DAC XCOORD /SAVE 

JMS GETARG 

JMP SETYI /NOW SAME AS FDIS 

SETADC JMS* •AX /GET MULTIPLEXER CHANNEL 

ADSM /NOTE: WILL USE LOW ORDER 

/SIX BITS AS CHANNEL NUMBER 

lOF /TURN OFF INTERRUPT SYSTEM 

ISA+10 

ADSC /SELECT AND CONVERT 

ADSF /WAIT FOR FLAG 
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JMP 


.-1 




ADRB 






JMS* 


• AW 




LAC 


C 40 




ISA 






ION 






JMP* 


EFUN3 


SETDAC 


JMS* 
DALl 


.AX 




JMP* 


EFUN3 


SETRLB 


JMS* 
SMA 


.AX 




JMP 


.+4 




DZM 


RELAYB 




ORG 






JMP* 


EFUN3 




CMA 






DAC 


TEMP 




• DEC 






TAD 


(18 




• OCT 






SMA 






JMP 


.+3 




• DEC 






LAW 


2 




• OCT 






JMP* 


rUNERR 




CLAICLL 


•GML 




RAR 






ISZ 


TEMP 




JMP 


.-2 




DAC 


TEMP 




JMS 


GETARG 




LAC 


TEMP 




CMA 






AND 


RELAYB 




DAC 


RELAYB 




JMS* 


.AX 




SZAJCLA 






LAC 


TEMP 




XOR 


RELAYB 




DAC 


RELAYB 




ORS 






JMP* 


EFUN3 


/ 






GETARG 









JMS* 


XSPNOR 




SAD 


C254 




JMP 


.+3 




• DEC 






LAW 


i 




• OCT 






JMP* 


FUNERR 




JMS* 


UTRA 




LAC 


EVAL 




DAC 


.+2 




JMS* 


XPUSHJ 




XX 






JMP* 


GETARG 


/ 






XCOORD 







RELAYB 







TEMP 








/READ A/D BUFFER 

/FLOAT RESULT 

/TURN ON INTEVVUPT SYSTEM 



/RETURN 

/GET VALUE AS INTEGER 



/GET VALUE 

/IS IT MINUS 

/NO - GO FIND BIT POSITION 

/YES - CLEAR WHOLE RELAY BUFFER 

/RETURN 

/FORM ONE'S COMP 

/SAVE AS COUNT 

/MUST BE RELAY TO 1 7 

/IS IT LEGAL POSITION 
/YES 

/NO 

/??02 ERROR 

/INITIALIZE AC 

/PUT BIT IN RIGHT 

/POSITION 

/SAVE BIT POSITION 

/CLEAR OLD RELAY VALUE 



/SAVE NEW BUFFER 

/CLEAR OR SET RELAY 
/IF NON ZERO SET 



/LOAD BUFFER 
/RETURN 

/GET ARGUMENT 
/SKIP SPACES 
/IS IT A COMMA? 
/YES 

/NO - ? ?0 1 ERROR 

/EXTERNAL FUNCTION ERROR 
/SKIP COMMA 



/CALL EXPRESSION EVALUATOR 

/RETURN 

/X COORDINATE STORAGE 
/RELAY BUFFER STORAGE 
/TEMPORARY STORAGE 



• END 
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CHAPTER 7 
DATA COMMANDS 



F(XAL data commands allow the user to store and then retrieve substantial amounts of data through the use of 
auxiliary Input/Output devices other than the Teletype. The steps for processing the data need not be incorporated 
in the FOCAL program itself. The commands cause files consistent with the Advanced Software format to be 
produced and accepted, and as with the library commands, the files can be manipulated by other Advanced 
Software programs such as PIP and EDITOR, as may be noted from the examples at the end of this chapter. 

Data commands are used with other FOCAL commands and follow the same conventions with only minor 
exceptions. Data commands are for single-user FOCAL, and the DATA command, because of the conflict with the 
DO command, cannot be abbreviated. Also, under some conditions, library commands are illegal as with DATA 
OUT or DATA CLOSE (see 7.1.1 and 7.1.2). 

7.1 DATA COMMANDS 

Three operations are required to produce a file with the FOCAL data commands: 

a. file initialization 

b. file output 

c. file termination 

7. 1 . 1 DATA File Initialization and Output 

The command 

*DATA OUT NAME 

initiaUzes and enters a filename on the device associated with .DAT slot 10. The name can be up to six 
alphanumeric characters and is terminated by a carriage return. The extension FCL is supplied by the system. 

Every TYPE or WRITE command issued after DATA OUT NAME will output data to the device assigned to .DAT 
slot 10. For example with the following .DAT slots assigned: 

SA DTE0 -1, -4/DETl 3, 5, 7, 10 

data is output to .DAT 1 on DECtape unit 1 , and will continue to be until a DATA file termination command is 
given. 

If a LIBRARY command is issued while in the DATA OUT mode, error message "?3 1 " will be output to the 
teletype. What has aheady been output to the DATA file can then only be saved if a DATA CLOSE command is 
issued. 

7. 1 .2 DATA File Termination 

After the appropriate DATA output commands are used, it is necessary to issue the command 

*DATA CLOSE 

to complete file output and enter the filename and data into the device associated with .DAT slot 10. 
DATA CLOSE commands aiiow input or output file to be closed. If a file has not been opened, FOCAL will output 
the "?35" error message on the teletype. The DATA CLOSE command also returns the user to the teletype mode. 
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If the command is not issued, the user remains in the data mode. However, to leave the data mode without 
finishing the output file the user may type 

*DATA KILL 

which aborts the output file and returns the user to the teletype mode. The file started by the DATA output 
command is lost when DATA KILL is issued. 

7.1.3 DATA Input 

The command 

*DATA IN NAME 

function is related to its use in indirect programs. When DATA IN NAME is used in an indirect program (e.g. 1.10 
DATA IN filename), it initiaUzes the device associated with .DAT slot 7 for data input from an ASK command. 
Recall that the ASK command is normally used in indirect commands and that its use is to input data at specific 
points during the execution of an indirect program. Thus, when a Une number and a DATA IN command such as 

*1.10 DATA IN filename 
is inserted in a program, .DAT slot 7 is initialized for data input when an ASK command such as 

*2.10ASKX,Y,Z 
is encountered during program execution. 

7.2 DATA .DAT SLOT USAGE 

Data commands, as previously stated, assume input on .DAT slot 7 and output on .DAT slot 10 from the Advanced 
Monitor. The recommended assignment to the Linking Loader is the system library located on unit (8 on the 
DECtape thumbwheel). Recommended FOCAL program and user input/output assignments for DECtape and Disk 
are: 



.DAT Slot 


Contents 


Sample Assignment 


.DAT- 1 


System library 


DTEO (DKE0) 


.DAT- 4 


FOCAL (XCU,XCT) 
FOCAL binary program 


DTEO (DKE0) 


.DAT 3 


FOCAL library input 


DTEl (DKEl) 


.DAT 5 


FOCAL Ubrary output 


DTEl (DKEl) 


.DAT 7 


FOCAL DATA input 


DTEl (DKEl) 


.DAT 10 


FOCAL DATA output 


DTEl (DKEl) 


7.3 DATA COMMAND USE 







Some of the data commands so far described are used in the following examples. Also demonstrated are the 
commands for loading FOCAL with the Linking Loader after Monitor's S is typed and for use of PIP for a 
Directory Usting and output of data on the teletype. 



KM15 V15 

$A DTEl -4, 3, 5, 7, 10 

SLOAD 

Loader V7A 
> <- FOCAL 

tsts 

F0CAL15 V8A 
*1.10DATAININDISK 
* 1.20 ASK A,B,C,D,E 
*1.30TA+B+C+D+E,! 
*G0 
15.0000 



/Prior .DAT slot assignments 



/Type indirect program. 

/File INDISK contains the input data. 

/See PIP Usting of INDISK below. 
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*LWA 

*LC 

*L I SHOW 

*WA 






/Recall indirect program. 



CFOCAL15 V8A 
01.10 DATA IN INDISK 
01.20 ASK, A,B,CAE 
01.30 TA+B+C+D+E,! 

*G0 

15.0000 

*TA 

1.0000* 
*TB,! 

2.0000 
*DATA OUT OUTDT 
*TA 
*TB 
*TC 
*TD 
*TE,! 

*DATA CLOSE 
*1-C 
KM15 V15 

$PIP 

PIPV10A 
>LTT^DT1 



/List program on the teletype. 



/Output data onto DECtape using 
/the TYPE command. 



/Close the output file. 



/Examination of files created and input. 



DIRECTORY LISTING 
1042 FREE BLKS 
4 USER FILES 



10 


SYSTEM BLKS 


INDISK 


FCL 1 1 


FOCAL 


BIN 2 23 


SHOW 


FCL 3 1 


OUTDT 


FCL 4 1 



PIPV10A 

>T TT <- DTI INDISK FCL (A) 

1.0 
2.0 
3.0 
4.0 
5.0 

PIPV10A 

>T TT ^ DTI SHOW FCL (A) 
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C FOCAL 15 V8A 
'01.10 DATA IN INDISK 
01.20 ASK A,B,C,D,E 
01.30 TA+B+C+D+E.! 

PIPV10A 

>T TT ^ DTI OUTDT FCL (A) 

1.0000 2.0000 3.0000 4.0000 5.0000 

PIPV10A 

>tc 

KM15 V15 
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CHAPTER 8 

MULTI-USER FOCAL 

BACKGROUND/FOREGROUND 



Multi-user FOCAL operates under the control of the Background/Foreground Monitor system which is designed to 
control processing and Input/Output operations in real-time or time-shared environment. With only a few 
exceptions, the commands, operating procedures, and FOCAL programs so far described in this manual are 
applicable to Multi-user FOCAL operations. The significant exceptions concern loading the Background/ 
Foreground Monitor system, the .DAT slot assignments, use of a FCORE command in the Foreground to reserve 
core, and the FOCAL Trace and Data commands. Once Multi-user FOCAL is loaded, users may begin to call up and 
to run or create programs such as those described in Chapter 4 of this manual. 

8.1 SYSTEM REQUIREMENTS 

The user will need a Background/Foreground System DECtape. For those users who may not be familiar with the 
operations, or for those who may want detailed descriptions of the system Background/Foreground operations, the 
following references are suggested: 

BACKGROUND/FOREGROUND MONITOR SYSTEM PROGRAMMER'S REFERENCE MANUAL 

(DEC-9A-MRZB-D) 

PDP-15/20 ADVANCED MONITOR SOFTWARE SYSTEM (DEC-15-MR3A-D) 

PDP- 15/40 Disk-Oriented BACKGROUND/FOREGROUND MONITOR Software System (DEC-15-MR4A-D) 

8.2 CONTROLS AND COMMANDS 

For Multi-user FOCAL: 

1. DATA Commands are illegal, except for single-user FOCAL. 

2. The TRACE Feature (see Section 3. 15, Chapter 3) is not used. 

3. The FCORE Command, which reserves core for FOCAL in the Foreground, is part of the loading 
procedure. The amount of assigned free core will determine the size of the FOCAL program that can be 
run. Free core will be assigned a value in default of the FCORE command and is established during system 
generation. Free core needed to run three of the sample programs from Chapter 4 follows: 



FOCAL 


No. of DEC- 


No. of State- 


FCORE Cells to 


Program 


tape blocks 


ments.. .decimal 


Run.. .octal 


CIRCLE 


1 


13 


300 


LOAN 


3 


33 


1000 


SCHROEDINGER 


4 


49 


1200 



8.3 SYSTEM LOADING 

The Background/Foreground Monitor system is loaded before the .DAT slots are assigned. 
To load Monitor: 

a. In disk systems, the Monitor and system programs are assumed to be on unit 0. 

O. in UIl.f^lSp6 sysiCills, muufli inc system tape ufi uCiK^iayc umi t> i^i.e. y/^ aiiu iiicii 

• Load the appropriate paper tape bootstrap in the Reader. 
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• Momentarily depress Reader TAPE FEED pushbutton to clear end-of-tape flag. 

• Set console address switches as follows: 



If you have a - 

16K System 

24K System 

32K System 

Bootstrap Restart 



Set switches to • 

37637 
57637 
77637 
1 1 1 (octal) 



Press and release in sequence, the console STOP, I/O RESET, and READ IN switches. 

When loaded, the Monitor identifies itself and indicates its readiness by outputting the following message on the 
Foreground control teletype (normally unit 1): 

FKM15 V3A 



After Monitor identifies itself in the Foreground, an IDLE job is loaded. Loading the IDLE job in the Foreground 
allows control to pass to the Background and the Non-resident Monitor is loaded into core. At that point the 
Monitor identifies itself on the Background control teletype as 

BKM15 V3A 

S 

and the user can begin to make the .DAT slot assignments and to start the FOCAL loading operations. 
8.4 .DAT SLOT USAGE 

The .DAT slot assignments vary according to the number of users and whether the user operates in the Background 
or Foreground. Beyond the assignments necessary to meet these requirements, .DAT slots for FOCAL library 
input/output and for the system are needed. 

Following is the .DAT slot usage for two and for four users and following that are sample loading and .DAT slot 
assignments for single- and two-user FOCAL in the Foreground and in the Background. 

Note that an IDLE job is loaded in the Foreground before Background is loaded. Also note that the FCORE 
command is not used in the Background and that, although not echoed by the Teletype, the ALTMODE key must 
be depressed after 

> <- FOCAL 
is typed. 



■DAT Slot Usage 



Two User 



Four User 



.DAT+1 TTA I/O for user #1 

.DAT+2 BULK STORAGE I/O for user #1 

.DAT+3 TTA I/O for user #2 

.DAT+4 BULK STORAGE for user #2 

8.5 LOADING FOCAL IN THE FOREGROUND 
Single User 



Same as for two user plus: 

.DAT+5 TTA I/O for user #3 

.DAT+6 BULK STORAGE I/O for user #3 

.DAT+7 TTA I/O for user #3 

.u^i-t-i\f) Dui^is. hiOi^/\i^c ifu LOT user =ff^■ 



FKJ 


^15 v; 
"dto" 


3A 




$A 


DKO 


-4 


/FOCAL is on system tape 


SA DTI 3 
SADTl 5 
$A DT3 7 
$ADT3 10 


/Library input to FOCAL 
/Library output to FOCAL 
/Data input 
/Data output 


8-2 CH^ 


VNGE 


1 





SFCORE 1400t 
SGLOAD 
FGLOAD Vnn 
> ^ FOCAL 
FOCAL Vnn 



/Free core for FOCAL buffer 

/Call Loader to LOAD-and-GO 

/Loader is in core 

/Load FOCAL and its Library, FNEW 

/FOCAL is in core and is ready to accept commands 



Two User 

FKM15 V3A 

DT0 
$A 

DK0 

SATTl 1 
SADTl 2 
$ATT2 3 
$A DT2 4 
SFCORE 3000 
SGLOAD Vnn 
FGLOAD Vnn 
> *- FOCAL 2 
FOCAL Vnn 



/FOCAL is on system tape 

/Teletype for user #1 

/Library I/O for user #1 

/Teletype for user #2 

/Library I/O for user #2 

/Assign 1400 (octal) locations for each user 

/Call Loader to LOAD-and-GO 

/Loader is in core 

/Load two-user FOCAL and its Library, FNEW 

/FOCAL is in core and will identify itself on each 

user's teletype 



Once the Monitor identifies itself in the Foreground, the user can load an IDLE job in the Foreground as follows: 



FKM9 VIA 








DTA0 






$A 




-4 


/The program "IDLE" is on unit 




DKA0 




/0 of the system device 


SGLOAD 


/Call the Loader to LOAD-and-GO 


FGLOAD VIA 


/The Loader is in core 


>^ 


IDLE U 


VLTMODE) 


/Load "IDLE BIN". 



When IDLE is loaded, no indication is given on the Foreground control Teletype. Control passes to the Background 
and the Non-resident Monitor is loaded into core. The Monitor identifies itself on the Background control Teletype 
as: 

BKM9 V 1 A /The Monitor is now ready to 

$ /accept background commands. 

8.6 LOADING FOCAL IN THE BACKGROUND 

The .DAT slots are as shown except the user should make certain that assignments for the Teletypes and mass 
storage units are different from those used in the Foreground. 

Single User 

BKM15 V3A 

DT0 



SA 

DK0 

SA DT2 3 



-4 



/FOCAL is on system tape 



/Library input to FOCAL 



tTUs may be varied, but 1400 (8) is considered a reasonable amount for text, push down lists, and variable storage. 
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$A DT2 5 /Library output to FOCAL 

$ADT4 7 /Data input 

$ADT4 10 /Data output 

FCORE NOT USED IN THE BACKGROUND 

SGLOAD /Call Loader to LOAD-and-GO 

FGLOAD Vnn /Loader is in core 

> *- FOCAL /Load FOCAL and its Library, FNEW 

FOCAL /FOCAL is in core and is ready to accept commands 



BACKGROUND 



Two User 




BKM15 V3A 


$A 


DT0 
DK0 


-4 


SATTl 


$ADT2 


$ATT3 


$A 


DT4 





/FOCAL is on system tape 



/Teletype for user #1 

/Library I/O for user #1 

/Teletype for user #2 

/Library I/O for user #2 
FCORE command not used in the Background 
SGLOAD /Call Loader to LOAD-and-GO 

FGLOAD /Loader is in core 

> ^ FOCAL 2 /Load two-user FOCAL and its Library, FNEW 

FOCAL Vnn /FOCAL is in core and will identify itself 

/on each user's teletype 



After FOCAL's *, users can begin to run FOCAL programs. 
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APPENDIX A 
FOCAL COMMAND SUMMARY 



Command 


Abbreviation 


Example of Form 




ASK 


A 


ASK X,Y,Z 


FOCAL types a colon for each variable; user 
then types a value to define each variable. 


COMMENT 


C 


COMMENT 


If a line begins v/ith the letter C, the 
remainder of the line is ignored during 
program execution. 


CONTINUE 


C 


C 


Dummy lines. 


COMMON 


none 


COMMON A,B,(C, 1,2,20) 


Assigns COMMON variables to be stored in 
indirect program. 


DO 


D 


DO 4.1 


Execute line 4.1; return to command 
following DO command. 






DO 4.0 


Execute all group 4 lines; return to command 
following DO command, or when a RETURN 
is encountered. 






DO ALL 


Execute entire indirect program. 


ERASE 


E 


ERASE 


Erases Une 2.1 t- 






ERASE 2.0 


Erases all user input f. 






ERASE 2.1 


Erases all COMMON variables. 






ERASE ALL 


Deletes all user input f . 






ERASE COMMON 


Deletes all COMMON variables. 


FOR 


F 


FOR I=X,Y,Z;(commands) 


Where the command following is executed at 
each new value. 

X=initial value of I 

Y = value added to I until I is greater than Z. 

Y = 1 , if not defined. 



t Has no effect on COMMON variables 
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Command 


Abbreviation 


Example of Form 


Explanation 


GO 


G 


GO 


Starts indirect program at lowest numbered 
line number. 


GO? 


G? 


GO? 


Starts at lowest numbered line number and 
traces entire indirect program until another 
question mark (?) or an error is encountered, 
or until completion of program. 


GOTO 


G 


GOTO 3.4 


Starts indirect program (transfers control to 
line 3.4); must have argument. 


IF 


I 


IF (X)Ln, Ln, Ln 

IF (X)Ln, Ln; (commands) 


Where X is a defined identifier, a value or an 
expression, follo^Ved by three 
numbers/commands. 






IF (X)Ln; (commands) 


If X is less than zero, control is transferred to 
the first line number. 

If X is equal to zero, control is transferred to 
the second line number or command. 

If X is greater than zero, control is transferred 
to the third line number or command. 


LIBRARY 


L 


LIBRARY OUT NAME 


Initializes a file on the output device. 






LIBRARY WRITE NNN 


Inserts NNN in library output file. 






LIBRARY WRITE 2.01 


Inserts line 2.01 in output file. 






LIBRARY WRITE 2.00 


Inserts group 2 lines in library output file. 






LIBRARY WRITE ALL 


Inserts entire indirect program in library 
output file. 






LIBRARY CLOSE 


Causes file name to be entered in directory. 






LIBRARY KILL 


Returns user to command mode & file is 
deleted. 






LIBRARY IN NAME 


Loads library file NAME. 


DATA 


None 


DATA OUT NAME 


Initializes the device assigned to .DAT 10 and, 
if file-oriented, enters the filename in the file 
directory. 






DATA CLOSE NAME 


Closes the output file and returns the user to 
the teletype mode. 






DATA KILL 


Aborts the output file and returns the user to 
the teletype mode. 
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Command 


Abbreviation 


Example of Form 


Explanation 






DATA IN NAME 


Initializes the device assigned to .DAT 7 and 
reads in the file named. 


MODIFY 


M 


MODIFY 1.15 


Enables editing of any character on line 1.15 
(see below). 


QUIT 


Q 


QUIT 


Returns control to the user. 


RETURN 


R 


RETURN 


Terminates DO subroutines, returning to the 
original sequence. 


SET 


s 


SET A=5/B*C 


Defines identifiers in the symbol table. Each 
occurrence of A is replaced by the value of 
the expression. 


TYPE 


T 


TYPE A + B - C 


Evaluates expression and types out result in 
current output format. 






TYPE A-B, C/E 


Computes and types each expression 
separated by commas. 






TYPE "TEXT STRING" 


Types text; can be followed by exclamation 
point (!) to generate carriage return-line feed 
or by # to generate carriage return only. 


WRITE 


W 


WRITE 
WRITE ALL 


FOCAL types out the entire indirect program. 






WRITE 1.0 


FOCAL types out all group 1 hnes. 






WRITE 1.1 


FOCAL types out line 1.1. 



FOCAL Operations 
Operation 



Command 



Explanation 



To set output format 



TYPE %x.yz 



Where x is the total number of digits, and yz 
is the number of digits to the right of the 
decimal point. 



To type symbol table 

To produce carriage 
return - line feed 

Carriage return only 



TYPE%6.3, 123.456 
TYPE% 

TYPES 



FOCAL types: 123.456 

Resets output format to floating point. 

Other statements may not follow on this line. 



# 
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Modify Operations 

After a MODIFY command, the user types a search character, and FOCAL types out the contents of that Une until 
the search character is typed. The user can then perform any of the following optional operations. 

a. Type in new characters. FOCAL adds these to the line at the point of insertion. 

b. Type an ALT MODE. FOCAL proceeds to the next occurrence of the search character. 

c. Type a CTRL BELL. After this, the user can change the search character. 

d. Type RUBOUT. This deletes characters to the left: one character for each time the user strikes the 
RUBOUT key. 

e. Type CTRL U. Deletes the line over to the left margin, but not the line number. 

f. Type RETURN. Terminates the line, deleting characters over to the right margin. 

g. Type LINE FEED. Saves the remainder of the line from the point at which LINE FEED is typed over to 
the right margin. 



Summary of Internal Functions 

Function FOCAL Representation 



Square Root 


FSQT(x) 


Absolute Value 


FABS(x) 


Sign Part 


FSGN(x) 


Integer Part 


FITR(x) 


Random Number 
Generator 


FRAN ( ) 


Exponential 
Function (e'') 


FEXP(x) 


Sine 


FSIN(x) 


Cosine 


FCOS(x) 


Arc Tangent 


FATN(x) 


Logarithm 


FLOG(x) 



Operation 

Where x is a positive number or expression 
greater than zero. 

FOCAL ignores the sign of x. 

FOCAL evaluates the sign part only with I as 
integer 

FOCAL operates on the integer part of x, 
ignoring any fractional part. 

FOCAL generates a random number. 



FOCAL generates e to the power x. 
(2.718281828X). 

FOCAL generates the sine of angle x expressed 
in radians. 

FOCAL generates the cosine of angle x expressed 
in radians. 

FOCAL generates the arc tangent of angle x ex- 
pressed in radians. 

FOCAL generates loge(x). 
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APPENDIX B 

ERROR DIAGNOSTICS 



CODE MEANING 

?00 Function not implemented 

?o 1 Illegal character at beginning of line 

702 Group number illegal as line number 

703 Group number too large 

704 Illegal type/ask format 

705 Too many periods 

706 Line number too large 

707 Line number missing 

708 Illegal group number 

709 Push-down list overflow 
7 J Illegal command 

71 1 Illegal IF format 

712 Left of equals in error on FOR or SET 

713 Excess right parenthesis 

7 1 4 Illegal FOR format 

7 1 5 Illegal variable name 

7 1 5 Text/variable buffer overflow 

717 Illegal expression format 

7 1 3 Operator missing before parenthesis 

7 1 9 Missing left parenthesis 

720 Illegal function name 

72 1 Double operator 

722 Parenthesis error 

723 ERASE or WRITE argument error 

724 Negative line number 

725 Zero argument for log 

726 Input overflow 

727 Number too large 

728 Negative power illegal 

729 Division by zero illegal 

730 Square root of a negative number 

73 1 Illegal command during library or data output 

732 Illegal Ubrary command 

733 Illegal file name 

734 File not found 

735 No file open 

736 .OTS error from arithmetic package 

737 COMMON statement format error 
77jm User defined function error 
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APPENDIX C 
ESTIMATING THE LENGTH OF USER PROGRAMS 



FOCAL requires five words for each identifier stored in the symbol table, and one word for each three characters 
of stored program. This may be calculated by 

c 
5s+( - • 1 .01) = length of user's program 

where: s = Number of identifiers defmed 

c = Number of characters in indirect program 
If the total program area or symbol table area becomes too large, FOCAL types the error message 

?16 
The following routine allows the user to find out how many core locations remain for his use. 

*FOR I = 1..5000; SET A(n = I 

? 1 6 (Wait for FOCAL to type the error message.) 

*TYPE %^> 1*5:. "LOCATIONS LEFT" 
8160LOCATIOIMS LEFT* 

At the end of this routine, use ERASE to clear all the variables A(I) from the symbol table. 

NOTE 

The upper limit on I varies with the amount of core memory 
in the user's system. 
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APPENDIX D 
CALCULATING TRIGONOMETRIC FUNCTIONS 





FOCAL 


Argument 


Function 


Function 


Representation 


Range 


Range 


Sine 


FSIN(A) 


0<|A|<10t4 


0<|F|<1 


Cosine 


FCOS(A) 


0<|Ai<10t4 


(KlFKl 


Tangent 


FSIN(A)/FCOS(A) 


0<|A|<10t4 
|A|9t(2N+l)7r/2 


(KIFKlOte 


Secant 


1/FC0S(A) 


0<|A|<10t4 
|A|#(2N+l)7r/2 


KjFKlOte 


Cosecant 


1/FSIN(A) 


0<|A|<10t4 

|A|¥=2Nir 


l<|F|<10t6 


Cotangent 


FCOS(A)/FSIN(A) 


0<|A|<10t4 

|A|#2N7r 


0<|F|<10t440 


Arc sine 


FATN(A/FSQT(1-At2) 


(KIAKl 


(K|F|<7r/2 


Arc cosine 


FATN(FSQT(1-At2)/A) 


0<|A|<1 


0<|F|<7r/2 


Arc tangent 


FATN(A) 


0<A<10t6 


0<F<;r/2 


Arc secant 


FATN(FSQT(At2-l)) 


l<A<10t6 


(KF<5r/2 


Arc cosecant 


FATN(l/FSQT(At2-l)) 


l<A<10t300 


0<F<7r/2 


Arc cotangent 


FATN(1/A) 


0<A<10t615 


0<F<7r/2 


Hyperbolic sine 


(FEXP(A)-FEXP(-A))/2 


(KIAK700 


0<|F|<5*10t300 


Hyperbolic cosine 


(FEXP(A)+FEXP(-A))/2 


(KIAK700 


I<F<5*10t300 


Hyperbolic tangent 


(FEXP(A)-FEXP(-A))/ 
(FEXP(A)+FEXP(-A)) 


(KIAK700 


(KjFKl 


Hyperbolic secant 


2/(FEXP(A)+FEXP(-A)) 


(KIAK700 


0<F<1 


Hyperbolic cosecant 


2/(FEXP(A)-FEXP(-A)) 


(KIAK700 


0<|F|<10t7 


Hyperbolic cotangent 


(FEXP(A)+FEXP(-A))/ 
(FEXP(A)-FEXP(-A)) 


(KIAK700 


l<|F|<10t7 


Arc hyperbolic sine 


FLOG (A+FSQT(At2+l)) 


-10t5<A<10t600 


-12<F<1300 


Arc hyperbolic cosine 


FL0G(A+FSQT(At2-l)) 


l<A<10t300 


0<F<700 


Arc hyperbolic tangent 


(FL0G( 1 +A)-FLOG( 1 -A))/2 


(KIAKl 


(KIFK8.31777 


Arc hyperbolic secant 


FLOG(( 1 / A)+FSQT(( 1 /At 2)- 1 )) 


(KIAKl 


0<F<700 


Arc hyperboUc 


FL0G((1/A)+FSQT((1/At2)+1)) 


(XIAKlOtSOO 


(KIFK1400 


cosecant 








Arc hyperbolic 


(FLOG(X+ 1 )-FLOG(X- 1 ))/2 


l<A<10t616 


{KF<8 


cotangent 









D-l/D-2 



APPENDIX E 

SLOT AND HANDLER ASSIGNMENTS 

.DAT IN KEYBOARD MONITOR SYSTEM 



The .DAT slots to be assigned with FOCAL are 

- 1 System library 

- 4 FOCAL (XCT, XCU) 

FOCAL binary program 
3 Library input 

5 Library output 

7 Data input 

10 Data output 

Handler assignements depend on the user's peripheral devices. Handler E is used when DECtape input/output is 
desired for FOCAL programs, as in the assignment: 

$ADTE0-l,-4/DTEl 3,5,7,10 

When Disk input/output is desired the Handler is also E and the assignment is 

$A DKE0 -1, -4/DKEl 3,5,7,10 

When paper tape is used to load FOCAL (as described in Chapter 1) to operate under the control of the Basic I/O 
Monitor system the .DAT slot assignments are 

$APRA-l,-4,3,7/PPA5,10 



CHANGE 1 E-l/E-2 



PDP-15 FOCAL 
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READER'S COMMENTS 



Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness of its 
publications. To do this effectively we need user feedback — your critical evaluation of this manual. 



Please comment on this manual's com.pleteness, accuracy, organization, usability, and readability. 



Did you find errors in this manual? 



How can this manual be improved? 



DEC also strives to keep its customers informed of current DEC software and pubUcations. Thus, the fol- 
lowing periodically distributed publications are available upon request. Please check the appropriate boxes 
for a current issue of the publication(s) desired. 

rn Software Manual Update, a quarterly collection of revisicJ'ns to current software manuals. 

r~| User's Bookshelf, a bibliography of current software manuals. 

p~) Program Library Price List, a list of currently available software programs and manuals. 

Please describe your position. 

Name Organization 

Street Deoartment 



City State Zip or Country 
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